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INPUT IS SPECIALLY DESIGNED FOR: 

The SINCLAIR ZXSPECTRUM(16K,48K, 128 and + ), 
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Programs and text which are specifically for particular machines 
are indicated by the following symbols: 



SPECTRUM 16K, 
48IC 128, and + 



SF 



COMMODORE 64 and 128 



fj ACORN ELECTRON, *%JF 

tJ BBC B and B+ 



■* DRAGON 32 and 64 



ZX81 



GU VIC 20 ■" 



TANDY TRS80 
COLOUR COMPUTER 
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PLANNING THE 
BEST COURSE 



PLANNING A PROJECT 



A CRITICAL PATH 



EFFICIENCY 



PERT CHARTS 



SAVING TIME 



If you are trying to organise any sort 
of project— from servicing your car 
to buying a house— then this 
program can help you plan it out, 
and save you time as well 

Have you ever found yourself half-way 
through a project such as decorating your 
living room and suddenly realised that if only 
you had planned the job properly you 
wouldn't now be sitting around waiting for 
the filler to dry before getting on with the 
painting? Or when you're fixing the car, 
found that if you'd planned it out properly 
you would have made sure that you replaced 
the stoplight switch before putting back the 
brake cylinder so that you now don't have to 
take it apart once again. 

Any complex activity needs a certain 
amount of planning but sometimes there seem 
to be so many things you need to do, all taking 
differing lengths of time, and all depending 
on the successful completion of earlier activ- 
ities that it is almost impossible to work out 
when to do what. Most activities usually also 
have a very clearly defined time when they 
must be finished. 



A CRITICAL PATH 



If you work out the time taken by all the 
activities you will always 



particular chain of events that determines the 
total time taken by the whole project. This is 
known as the critical path, and any delay or 
speeding up of this sequence of events will 
alter the time for the whole project. Other 
activities may possibly be delayed but this 
won't affect the overall time. 

Working this out is no easy matter if you 
are limited to plotting the critical path by 
hand. But using your computer and the 
program given here, analysing the best po- 
ssible situation becomes much simpler. The 
program lets you build up a database of all the 
activities required for a particular project 
along with the times they take (or estimates if 
they're not known) and the order they should 
be carried out. It then calculates the critical 
path and tells you how much slack time you 
have for the non-critical tasks — so you know 
which ones you have some leeway with and 
how long you can put off doing them without 
extending the whole project. 

The program is given in two parts. The 
first part that accompanies this article sets up 
a database of all your activities while the 
second half, given next time, calculates the 
critical path so you can work out the quickest 
and most efficient way of carrying out your 
project. 



TIME SAVING 



Because it works out a critical path, the 
programming technique is often known as 
Critical Path Method (CPM) or Critical Path 
Analysis (CPA). Its other name is Program 
Evaluation and Review Technique or PERT, 
which refers to the method of planning using 
networks. These techniques first became 
fashionable in the early 1960s when they were 
used for the NASA space programme. One 
well quoted example were the savings made 
during the Polaris missile programme where 
the time taken for a given output was de- 
creased by a factor of five! PERT programs 
are now used extensively in business and 
industry to increase efficiency in almost all 
projects. So if you own a small business (or 
even a large business) this program is ideal. 



PLANNING A PROJECT 



But its use is not limited to businesses — any 
project, however small, can be evaluated with 
the program. The program really becomes 
useful, though, when you are doing some- 
thing more complicated than decorating a 
room or repairing a car. One project many 
people undertake is buying or selling a house, 
and this involves coordinating many different 
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things — often within a very strict deadline. 
The diagram shows how you might draw a 
PERT chart for a house purchase. The circles 
enclose what are known as events. These are 
instances between activities that take up no 
time of their own. They simply mark the 
beginning or end of an activity. The activities 
are written along the lines joining the events, 
along with an estimate of the time needed. 

At this stage many activities are uncertain 
and you'll find that a lot of the lines cross over 
one another. So although the information is 
all there, it is rather difficult to see exactly 
which are the important things to do 
quickly — or whether the whole thing can be 
done at all in the time allowed. Also as you 
progress with the purchase, other factors may 
appear which may alter the whole outlook (a 
rich aunt may leave you some money) so the 
chart would need to be updated. The advan- 
tages of using this program are enormous. 
You'll be able to create a neat printout of all 
the activities — and it can be updated in an 
instant. You'll be able to find the critical path 
through the mass of information so you can 
monitor this path more closely, taking im- 
mediate action if any delays appear. Or you 
may discover you need to replan some of the 
activities to make the project feasible in the 
first place. 

Next time you'll see how to enter the 
information in the program. Meanwhile type 
in the first part of the program and save it 
ready to add the second part next time. 



5 BORDER 0: PAPER 4: INK 0: CLS 

7 POKE 23658,8: POKE 23609,20 

10 CLS : LET false =0: LET ma = 100: LET 

me = 100: LET mh = 212: LETse= -1: 

LET fe = — 1 :G0SUB 12: LET ck= false: 

LET aa = 0: LETee = 0: GOTO 50 
12 LET zz = 9999: LET true = 1: LET 

p$ = "please input D": LET 

a$ = " □activity" 
1 4 DIM w$(85,32): LET w$(1 ) = "NO" + 

A$ + " = PRECEDES event": LET w$(2) 

= "Y0U CAN'T USE THIS MANY" 
16 LET w$(3) = "Y0U CAN'T USE THIS 

NUMBER □": LET w$(4) = p$ + "text for 

thisD" 
18 LETw$(5)=a$+" REFERS UNDEFINED 

EVENT " 
22DEFFNa(x) = x*(x<0):DEFFN 

z(x) = x*(x>0) 
26 DIM a(ma): DIM g(ma) 
30DIMw(ma): DEF FN w(x) = ABS 

x*(x<1)+ABS(2-x)*(x>1): 

DEF FN x(x) = x"(2.37572 + x , x*{1 5.9402 

- x V(1 84.744 - x*x*688,472)))/1 .20667 
34 DEF FN l$(x) - (STRS (x) + " □ □ □ □ 

□ "){T0 6) 
36 DEF FN b(x) = x — INT (x/256)*256 
38DEFFNp$(x) = "--"(TOINT 

((6-x)/2)): DEF FN q$(x) = "□□"( TO 

INT((6-x)/2)) 
40 DIM e(me) 
42 DIM x(8) 



44 DIM s(mh): DIM f(mh): DIM u(mh): DIM 

t(mh): DIM n(mh}: DIM u$(mh,20): DIM y 

(mh): DIM z(mh) 
46 DIM p(mh}: DIM q(mh) 
48DEFFNu(x) = u(ABSx + (x = 0))*(x>0): 

RETURN 
50 CLS : PRINT "1 = define D";a$"'2 = 

delete D";a$: PRINT "3= define event'" 

"4 = delete event" 
60 PRINT "5 = save to tape'""6 = load 

tape'""7 = check tape'""8 = show details" 
62 PRINT "9=QUIT'""10 = check and sort 

network" 
64 PRINT "11 =calc with average durations" 
66 PRINT "12 = calc with uncertainties": PRINT 
70 INPUT t: PRINT t: IF 1 = 9 THEN STOP 
72IFt<1 OR t> 12 THEN PRINT 

"t = ";t;"DN0T UNDERSTOOD": GOTO 114 
74 IF t> 10 AND NOT ck THEN PRINT 

"PLEASE RUN DATA CHECK FIRST": 

GOTO 114 
76 IFaa = 0AND (t>7 0Rt = 5) THEN 

PRINT "CAN'T DO - N0";a$; 

"□INPUT": GOTO 114 
80 IF t>7 THEN GOTO 100 
82 IF t = 6 THEN CLEAR: LET t = 6 
84 IF t>4 THEN PRINT "please input file 

name:";: INPUT f$: PRINT f$: GOTO 100 
86 LETf$ = a$: IFt>2 THEN LET 

f$ = "event" 
88 PRINT p$;f$;"D number": PRINT "or 

zero to quitn"; 
90 INPUT u: PRINT u: LET u = INT u: IF u = 

THEN GOTO 50 
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92IFu<1 OR u>zz THEN PRINT w$(3}: 

GOTO 88 
94 IF t>2 THEN LETu=-u 
96 GOSUB 450: LET ck = false 
98 IF (t = 2 OR t=4) AND (0 = u(x) OR 

zz<u(x)) THEN PRINT "YOU NEVER USED 

THIS NUMBER": GOTO 114 
100 GOSUB 20* (t = 1) + 100't + 900" 

(t-10)*(t>10) 
112 GOTO 50 

114 FOR t = 1 TO 500: NEXT t: GOTO 50 
120 IF0<u(x) AND Z2> =u(x) THEN 

GOSUB 942: GOSUB 932: GOTO 130 
122 IF aa = ma THEN PRINT w$(2);f$: 

RETURN 
124LETaa = aa + 1: LETa(sa)=x: LET 

u(x) = u 
130 PRINT w$(4);f$;":";: INPUT u$(x): 

PRINT u$(x): LETx3 = x 
140 PRINT p$; "start event, finish eventD";: 

INPUT s,f: PRINT s;"D";f: LETs = INTs: 

LET f=INT f 
142IFs<1 ORs>zzORf<1 ORf>zz 

THEN PRINT w$(3): GOTO 140 
150 LET u= -s: GOSUB 450: IF u(x)<0 

THEN GOTO 156 
152 IF ee = me THEN PRINT w$( 2); "events": 

GOTO 140 
154 GOSUB 350 



156LETs(xa) = x 

160 LET u= -f: GOSUB 450: IF u(x)<0 

THEN GOTO 166 
162 IF ee = me THEN PRINT w$(2);"events": 

GOTO 140 
164 GOSUB 350 
166 LET f(xa)=x 
170 PRINT p$;"probable time to doD";: 

INPUT t(xa): PRINT t(xa) 
172 IF t(xs)<0THEN PRINT "YOU CANT DO 

ITTH1S FAST": GOTO 170 
180 PRINT "input time you are 90% certain": 

PRINT "it can be done inC";: INPUT 

n(xa): PRINT 'n(xa) 
182 IF n(xa)<t(xa) THEN PRINT "THIS 

DISAGREES WITH PROBABLE TIME": 

GOTO 170 
190 RETURN 
200 FOR b = 1 TO aa: IF x = a(b) THEN LET 

a = b 
220 NEXT b: LET a(a) = a(aa): LET 

u{x) = zz + 1: LET aa = aa — 1 : RETURN 
300 IF u(x) <0 THEN GOSUB 946: GOSUB 

933: GOTO 330 
310 IF ee = me THEN PRINT w$(2);f$: 

RETURN 
312 GOSUB 350 



LE 



5 POKE 53280,1 2:POKE 53281,12 
10FA = 0:MH = 212:GOSUB12: 



12 CLS$ = "Q":CM$ = ",":ZZ = 32766: 

MA = 100:ME = 100:QT$ = CHR$(34):TR 

= -1:PRINTCLS$ 
14 P$ = "PLEASE INPUTD":A$ = "ACTIVITY" 
16 DIMW$(5):WS(1) = "NOD" + A$ + "D 

PRECEDES EVENT":W$(2) = "YOU CANT 

USE THIS MANY" 
18 W$(3) = "YOU CANT USE THIS NUMBER" 

:W$(4) = P$ + "TEXT FOR THIS □" 
20 W$(5) = A$ + " D REFERS TO UNDEFINED 

EVENT" 
22 DEFFNA(X) = -X*(X<0):DEFFNZ(X) 

= -X'(X>0) 
28 DIMA%(MA),G%(MA) 
30 DIMW(MA):DEFFNW{X}= -ABS(X)*(X 

<=1)-ABS(2-X)"(X>1) 
32 DEFFNX(X) = X'(2.37572 + X"X'(1 5.9402 

- X'X"{1 84.744 - X*X*688.472)})/1 .20667 
40 DIM E%{ME) 
44 DIM S%(MH),F%{MH},U%(MH)J(MH), 

N(MH),U$(MH),Y(MH),Z(MH) 
46 DIM P(MH),Q{MH} 
48 DEFFNU{XX)=TR*U%(ABS(XX) 

-(XX = 0))"(XX>0):RETURN 
50 PRINTCLS$TAB(10)"UHaMAIN 

MENUHSg]" 
53 PRINT"|J1 =DEFINE|J";A$:PRINT"|J2 

= DELETE U ";A$ 
55 PRINT"||3 = DEFINE EVENT":PRINT"||4 

= DELETE EVENT" 
60 PRINT" ||5 = SAVE DATA" : PR I NT" || 




32 



MM&i&xP 



32 



61 PRINT" |J7 = DELETE FILE FROM 
DISK":PR!NT"fc|8 = SH0W DETAILS" 

62 PRI NT" |J9 = (RESTART)" 

63 PRINT"10 = CHECK AND SORT 
NETWORK" 

64 PRINT'1 1 = CALC WITH AVERAGE 
DURATIONS" 

65 PRINT'1 2 = CALC WITH UNCERTAINTIES 
": PRINT'1 3 = OUTPUT TO □"; 

66IFKK$ = "Y"THENPRINT"a 
PRINTERM/SCREEN" 

67 IF KK$< >"Y" THEN PRINTPRINTER/ 
aSCREEN" 

68 PRINT'1 4 = (QUIT)" 

69 T=0:INPUT"Hi|||UENTER 
OPTION";T 

70 IFT = 14THENINPUT"ARE YOU SURE 
(Y/N)";AN$:IFAN$ = "Y"THENSYS58648: 
END 

71 IF T = 13 OR T=14 THEN 100 

72 IF T = 9 THEN 900 

73 IFT<10RT>13THEN PRINT"D||Hfl 
CODE"D;T;" NOT UNDERSTOOD":GOTO 
114 

74 IFT>10ANDNOT(CK)THEN PRINT 
"HIIS2PLEASE RUN DATA CHECK 
FIRST":GOT0114 

76 IFAA = 0AND(T>7ORT = 5)THEN PRINT 
IU S| fl CAN'T DO - NOD" + 
A$ + " niNPUT":GOT0114 
80IFT>7THEN100 
82IFT=6THENCLR:T = 6 




84 IFT>4THENPRINT"n"P$;"fc|FILE 

NAME":INPUTF$:GOTO100 
86 F$ = A$:l FT > 2TH ENF$ = "EVENT" 
88 PRINTCL$"PLEASE INPUT||";F$; 
"||NUMBER":PRINT"OR ZERO TO 
QUIT" 
90 INPUTU:U = INT(U):IFU = 0THEN50 
92 1FU<10R(U>ZZ)THENPRINTW$(3): 

FORDE = 1T0999:NEXTDE:GOT088 
94IFT>2THENU=-U 
96GOSUB450:CK = FA 
98 IF(T = 2ORT=4)AND(0 = U%(X)ORZZ 
<U%(X))THENPRINT"NUMBER NOT 
USED":GOT0114 
100IFKK$ = "Y"AND(T>7AND 

T<12)THENOPEN4,4:CMD4 
1 01 PRINTCL$:ONTGOSUB1 20,200,300,400, 
500,600,700,800,900,1000,2000,3000, 
960 
105 IF KK$ = "Y" AND(T>7 AND T<13) 

THEN PRINT#4:CL0SE4 
110IFT<5THEN86 
112GOTO50 

114 FORT=1TO1000:NEXTT:GOTO50 
120 IF0<U%{X)AND22> =U%(X)THEN 

GOSUB942:GOSUB932:GOTO130 
122 IF(AA = MA)THENPRINTW$(2);F$: 

RETURN 
1 24 AA = AA + 1 :A%(AA) = X:U%(X) = U 
130 PRINTW${4);F$:INPUTU$(X):XA = X 
140 PRINTP$;"START EVENT, FINISH 

EVENT":INPUTS,F:S = INT(S):F = INT(F) 
142 IFS<10RS>ZZORF<10RF>ZZ 

THENPR1NTW$(3):GOTO140 
150U = -S:GOSUB450:IFU%(X) 
<0THEM156 

52IFEE = ME 

THENPRINTW$ 

(2);"EVENTS" 

:GOTO140 

154GOSUB350 

156 S%(XA) = X 

1 60 U = F: 

GOSUB450:IFU% 

(X)<0THEN166 

162 IFEE = ME 

THENPRINTW$ 

(2);"EVENTS" 

:GOTO140 

164GOSUB350 



166F%(XA) = X 

170 PRINTP$;"PROBABLE TIME TO DO": 

INPUTT(XA) 
172 IFT(XA)<0THENPRINT"YOU CANT DO IT 

THIS FAST":GOTO170 
180 PRINTP$;"TIME YOU ARE 90% 

CERTAIN":PRINT"IT CAN BE DONE 

IN":INPUTN(XA) 
182 IFN(XA)<T(XA)THENPRINT"THIS 

DISAGREES WITH PROBABLE 

T1ME":GOTO170 
190 RETURN 

200 FORB = 1TOAA:1FA%(B)=XTHENA = B 
220 NEXTB:XX = A%(AA):U%(X) = ZZ + 1: 

A%{A)=XX:AA = AA-1:RETURN 
300 IFU%(X)<0THENPRINT"aEVENTS": 

XP = U%(X):GOSUB950:PRINTU$(X): 

GOTO330 
310 IF(EE = ME)THENPRINTW$(2);F$: RETURN 
312GOSUB350 
330PRINTW$(4);F$:INPUTU$(X):S%(X) = 0: 

RETURN 
350EE = EE + 1:E%(EE) = X:S%(X)=-1:F% 

(X)=0:U%(X) = U 
360 T(X) = 0:N(X) = 0:U$(X) = "":RETURN 
400 FORF = 1TOEE:IFE%(F)=XTHENE = F 
420 NEXTF:XX = E%(EE)::U%(X) = ZZ + 1 

:E%(E)=XX:EE = EE-1:RETURN 
450Z = U-INT((U-1)/MH)*MH:Y = 2:X = 
460 IFX = 0THENIF0 = U%(Z)ORZZ + 1 =U% 

(Z)THENX=Z 
470 IFU = U%(Z)THENX = Z:RETURN 
480 IFY = 1OR0 = U%(Z)THENRETURN 
490Z = Z + Y-MH'INT((Z + Y-1)/MH): 

Y=Y + Y-MH"INT((Y + Y-1)/ 

MH):GOTO460 
500OPEN1,8,8,"0:" + F$ + ",S,W": 

PR1NT#1 ) MA;CM$;ME;CM$;MH;CM$;AA; 

CM$;EE;CM$;CK 
510IFCKTHENPRINT#1,SE;CM$;FE 
520 FORA = 1TOAA:X=A%(A):PRINT#1,X; 

CM$U%(X)CM$S%(X)CM$F%{X)CM$T(X) 

CM$N(X)CM$; 
530 PRINT#1,G%{A)CM$QT$U$(X)QT$: 

NEXTA 
540 FORE = 1TOEE:X = E%(E):PRINT#1, 

X;CM$U%(X)CM$S%(X)CM$F%(X)CM$T 

(X)CM$N(X) 
550 PRINT#1,QT$U$(X)QT$:NEXTE 
560 FORX = 1TOMH:IFU%(X)=ZZ+1THEN 

PRINT#1,X 
570NEXTX:PRINT#1,0 
580CLOSE1:RETURN 



1 MODE6 

10 MH = 101:MA = 50:ME = 50:GOSUB20: 
CK = FALSE:AA = 0:EE = 0:GOTO110 

20UU = 0:ZZ = 9999 

30 A$ = "D ACTIVITY" 

40 DIMWS(5):W$(1 ) = "NO D " + A$ 



32 usssmai ^ 



+ "nPRECEDES EVENTO":W$(2) 

= "YOU CANT USE THIS MANYD" 
50 W$(3) = "YOU CANT USE THIS 

NUMBER":W$(4) = "INPUT TEXT FOR 

THISD" 
60 W$(5) = A$ + " D REFERS TO UNDEFINED 

EVENTD" 
70 DIMADMA,GDMA,EDME,SDMH,FaMH 
80 DIMW(MA) 
90 DIMU%(MH),T(MH) ; N(MH),U$(MH) 

,Y(MH),Z(MH),P(MH),G(MH) 
100 RETURN 
110 CLS:PRINT""D1= DEFINE, 

2 = DELETE";A$'"D3 = DEFINE, 

4 = DELETE EVENT" 
120 PRINT"D5 = SAVE INFORMATION, 

6= LOAD INFORMATION'""D7 = SHOW 

DETAILS" 
130 PRINT" D8 = CALC WITH AVERAGE 

DURATIONS"'"D9 = CALC WITH 

UNCERTAINTIES"" 1 D 1 3 = QUIT" 
140INPUTT:IFT = 13THENEND 
150 IFT>10ORT<1THENPRINT"CODEa"; 

T;"DNOT UNDERSTOOD":GOTO280 
160IFT>6THEN260 
170IFT=6THENCLEAR:T=6 
180 IFT=50RT=6THENINPUT"PLEASE 

INPUT FILE NAME",F$:GOTO260 
190 F$ = A$:IFT>2THENF$ = "EVENT" 
200 PRINTF$;"DNUMBER"'"OR ZERO TO 

QUIT" 
210 INPUTU:U = INT(U):IFU=0THEN110 
220 IFU<10R(U>ZZ)THENPRINT'W$(3): 

GOTO200 
230IFT>2THENU--U 
240 GOSU8580:CK= FALSE 
250 IF(T=20R T = 4)AND(0 = U%(X)OR 

ZZ<U%(X))THENPRINT"YOU HAVEN'T 

USED THIS NUMBER":GOTO280 
260ON{T)GOSUB290,480,500,560,630,700, 

760,1360,1480 
270IFT<5THEN190 
280GOSUB840:GOTO110 
290 JM = 3:IFU%(X) > 0ANDZZ > = U%(X) 

THENCLS:GOSUB850:GOSUB830:GOTO 

320 
300 IF(AA = MA)THENPRINTW$(2);F$: 

RETURN 
310AA = AA + 1:A?AA = X:U%(X) = U 
320 PRINTW$(4);F$:INPUTU$(X):XA=X 
330 PRINT'START EVENT.FINISH EVENT": 

INPUTS%,F% 
340 IFS% = F%ORS%<10R(S%>ZZ)OR 

F% < 1 0R(F% > ZZ)THENPRINTW$(3): 

GOTO330 
350 U= -S%:GOSUB580:IFU%(X} <0THEN 

380 
360 IF(EE = ME)THENPRINTW$(2);"EVENTS": 

GOTO330 
370GOSUB540 
380S?XA = X 



390 U = - F%:GOSUB580:IFU%(X) <0THEN 

420 
400IF(EE = ME)THENPRINTW$(2);"EVENTS" 

:GOTO330 
410GOSUB540 
420F?XA = X 
430 PRINT"PROBABLE TIME TO DO":INPUTT 

(XA) 
440 IFT(XA)<0THENPRINT"YOU CAN'T DO 

IT THIS FAST":GOTO430 
450 INPUT'TIME YOU ARE 90% 

CERTAIN'""IT CAN BE DONE IN",N(XA) 
460 IFN(XA)<T(XA)THENPRINT"THlS 

DISAGREES WITH PROBABLE TIME": 

GOTO430 
470 RETURN 

480 FORB = 1TOAA:IF(X = A?B)THENA%=B 
490 NEXTB:A?A%=A?AA:U%(X) =ZZ + 1: 

AA = AA-1:RETURN 
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10 PCLEAR1 :CLEAR2000:MH = 21 2:ME = 

100:MA = 100:FA = 0:GOSUB20:CK = FA: 

GOTO140 
20ZZ = 9999:TR=-1:P$ = "INPUTD": 

A$ = "DACT1VITY":E$ = CHR$(13) 
30 DIMW$(5):W$(1 ) = "NO" + A$ + 

"□ PRECEDES EVENT":W${2) = "YOU 

CAN'T USE THIS MANYD" 
40 W$(3) = "YOU CAN'T USE THIS 

NUMBER":W$(4) = P$ + "TEXT FOR 

THISD" 
50 W$(5) = "REFERS TO UNDEFINED EVENT" 
60 DEFFNA(X)= -X*(X<0):DEFFNZ(X) = 

-X'(X>0) 
70 DIMA(MA),G(MA) 
80 DIMW(MA):DEFFNW(X)= -ABS(X)" 

(X<=1)-ABS(2-X)*(X>1) 
90 DEFFNX(X) = X"(2.37572 + XX (1 5.9402 

-XX(184.744-XX688.472)))/1 .20667 
100 DIME(ME) 
110DIMS(MH),F(MH),U(MH)J{MH),N(MH), 

U$(MH),Y(MH),Z(MH) 
120DIMP(MH),Q(MH) 
1 30 DEFFNU(X) = - U{ABS(X) - (X = 0))" 

(X>0):RETURN 
140 CLS:PR = 0:PRINT@11 3 "MAIN MENU": 

PRINT" 1 = DEFINE";A$;"DOR EVENT": 

PRINT" 2 = DELETE";A$;"DOR EVENT" 
150 PRINT" 3 = SAVE DATA":PRINT 

" 4= LOAD DATA":PRINT" 5 = PRINT 

DETAILS":PRINT"6 = QUIT" 
160 PRINT" 7 = CHECK AND SORT 

NETWORK" 
170 PRINT" 8 = CALC WITH AVERAGE 

DURATIONS" 

180 PRINT' 9 = CALC WITH 
UNCERTAINTIES":PRINT" ?"; 

190T$ = INKEY$:IFT$<"1"ORT$>"9" 

THEN190 

200T = VAL(T$):PRINTT 



210 IFT>7ANDNOT(CK)THENPRINT" RUN 

DATA CHECK (7) FIRST":GOTO380 
220 IFAA = 0AND(T>4ORT=3)THENPRINT 

"CAN'T DO - NO";Afc"DINPUT":GOTO 

380 
230IFT>4THEN350 
240 IFT = 4THENCLEAR2000:T = 4 
250 IFT>2THENPRINT"PLEASE INPUT FILE 

NAME":INPUTF$:GOTO350 
260 CLS:PRINTA$;"DOR EVENT (A/E) ? "; 
270T$ = INKEY$:IFT$o"A"ANDT$<> 

"E"THEN270 
280 PRI NTT$:IFT$ = "A"THENF$ = A$ELSE 

F$ = "DEVENT" 
290PRINT:PRINTP$;F$;"DNUMBER":PRINT 

"OR ZERO TO QUIT" 
300 INPUTU:U = INT(U):IFU = 0THENU0 
310IFU<1ORU>ZZTHENPRINTW$(3): 

GOTO280 
320IFT$ = "E"THENU = -U 
330GOSUB700:CK = FA 
340 IF(T=2ORT = 4)AND(0 = U(X)ORZZ<U 

(X))THENPRINT"YOU NEVER USED THIS 

NUMBER":GOTO380 
350 ONT GOSUB390,590,750,830,890,960, 

1070,1550,1660 
360IFT<3THEN290 
370GOTO140 

380 FORT=1TO1000:NEXn:GOTO140 
390IFF$oA$THEN620 
400 IF0<U(X)ANDZZ> =U(X)GOSUB1030: 

GOSUB1000:GOTO430 
410 IFAA = MATHENPRINTW$(2);F$: 

RETURN 
420AA = AA + 1:A(AA)=X:U(X) = U 
430 PRINTW$(4);F$:INPUTU$(X):XA=X 
440 PRINTP$;"START EVENT, FINISH 

EVENT":INPUTS,F:S = INT(S}:F = INT(F) 
450 IFS<10RS>ZZORF<10RF>ZZ THEN 

PRINTW$(3):GOTO440 
460U=-S:GOSUB700:IFU(X)<0THEN490 
470 IFEE = ME THENPRINTW$(2);"EVENTS": 

GOTO440 
480 GOSUB660 
490S(XA)=X 

500 U= -F:GOSUB700:IFU(X)<0THEN530 
510IFEE = METHENPRINTW$(2);"EVENTS": 

GOTO440 
520 GOSUB660 
530 F(XA) = X 
540 PRINTP$;"PROBABLE TIME TO DO": 

INPUTT(XA) 
550 IFT(XA)<0THENPRINT"YOU CAN'T DO 

IT THIS FAST":GOTO540 
560 PRINT'INPUT TIME YOU ARE 90% 

CERTAIN":PRINT"IT CAN BE DONE IN": 

INPUTN(XA) 
570 IFN(XA)<T(XA)THENPRINT"THIS 

DISAGREES WITH PROBABLE TIME": 

GOTO540 
580 RETURN 



1433 




OFTHI 




Move on from the idealized shapes 
of mathematically generated fractals 
to forms which are capable of 
modelling the natural world with 
convincing reality 



In the first article on fractals, you saw how 
simple recursive programs can be used to 
generate fascinating shapes by the repeated 
application of a single operation. These math- 
ematically generated patterns display order 
and symmetry, but although they also share 
many features with the irregular forms found 
in nature, they still seem like little more than 
interesting curiosities. 

Although fractals like these come much 
closer to modelling the natural world than is 
possible using the perfect shapes of tra- 
ditional science, so far, they still fall a long 
way short of realism. This article shows how 
fractals can model forms found in nature. 

The first program draws one of the natural 
world's most symmetrical forms — the six 
sided shape of a snowflake. 



10 BORDER 0:PAPER 0:INK 5: BRIGHT 1:CLS 

20 LET AN = 2"ATN (1 )/3:LET S2 = 2/SQR {3) 
30 LET XC = 1 27:LET YC = 90:LET 

S = 120:LETC = 2 
50 GOSUB 1000 
60 STOP 
1000 LET S = S/3:IF S<1 THEN LET 

S = S*3:RETURN 
1020 PLOT INVERSE 1;0VER1;INT 

(XC + S2*S*SIN (-AN)),(YC-S2"S*C0S 

(-AN)):FORK = 0TO8*ATN{1)-AN 

STEP 2*AN 
1 030 DRAW XC+ 2*S*SIN (K) - PEEK 

23677,YC-2-S-COS (K) - PEEK 23678 
1 040 DRAW XC + S2*S*SIN (K + AN) - PEEK 

23677,YC-S2*S*COS (K+AN)-PEEK 

23678 
1050 NEXT K 

1060 LET C = C-1:G0SUB 1000 
1070 LET YC = YC - 1 .36*S:GOSUB 1000 
1080 LET YC = YC + .68*S:LET 

XC = XC + 1.19*S:GOSUB1000 
1090 LET YC = YC + 1 .36*S:GOSUB 1000 
1100 LET YC = YC + .68"S: LET 

XC = XC-1.19*S:GOSUB1000 
1110 LET YC = YC — .68"S: LET 

XC=XC-1.19*S:GOSUB1000 
1 1 20 LET YC = YC — 1 .36'S:GOSU B 1 000 
1130 LET YC = YC + .68*S: LET 

XC = XC-M.19-S:LETS = S*3:LET 

C = C + 1:RETURN 
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10 HIRES 0/l:MULTI 0,1, 7: COLOUR 5,5 
20AN = 2'ATN(1)/3:S2 = 2/SQR(3) 
30XC = 80:YC = 99:S = 99:C = 4 
50 GOSUB 1000: FOR D = 1 TO 5000: NEXT 

D:C0L0UR 0,0 
60 MULTI RND{1)*16,RND(1)"16,RND(1)'16: 

GOTO 60 
1000 S = S/3:IF S<1 THEN S = S"3:RETURN 
1010 CL = CL + 1:IF CL>3 THEN CL = 1 
1020 XX = INT(XC + S2*S*SIN(-AN)):YY = 

INT(YC-S2*S'C0S(-AN)) 
1025 FOR K = 0TO 8*ATN(1)-AN STEP 2"AN 
1030 LINE XX,YY,XC + 2*S*SIN(K),YC - 2"S' 

C0S(K},CL 
1040 LINE XC + 2*S'SIN(K),YC-2"S'COS(K), 

XC + S2'S , SIN(K + AN),YC-S2*S*COS 

(K + AN),CL 
1045 XX = XC + S2'S*SIN(K + AN):YY=YC- 

S2'S"C0S(K + AN) 
1050 NEXT K 

1060 C = C-1:GOSUB 1000 
1 070 YC = YC-1.36*S:GOSUB 1000 
1 080 YC = YC + .68'S:XC = XC + 1 .1 9*S: 

GOSUB 1000 
1090 YC = YC + 1.36*S:GOSUB 1000 
1100YC = YC+.68 , S:XC = XC-1.18"S: 

GOSUB 1000 
1110 YC = YC-.68"S:XC = XC-1.19 , S: 

GOSUB 1000 
1 1 20 YC = YC — 1 .36*S:GOSUB 1 000 
1130 YC = YC + .68*S:XC = XC + 1.19*S:S = 

S*3:C = C + 1:RETURN 



1040 DRAW 1 TO XC + S2 , S , SIN(K + AN), 
YC-S2'S*C0S(K+AN) 



The listing is as for the Commodore 64, 
except for the following lines: 

10 GRAPHIC 2:C0L0R 0,0,1,1 

20AN = ATN(1)/3:SX = 2/SQR(3) 

30 XC = 51 2: YC = 51 2:S = 700 

50 GOSUB 1000 

60 GOTO 60 

1000 S = S/3:IFS<10 THEN S = S*3: 

RETURN 
1010 CL = CL + 1:IFCL>7 THEN CL = 1 
1020 POINT 0,INT(XC + S2 , S , SIN(-AN)}, 

INT{YC-S2*S*COS(-AN)):REGION (CL) 
1030 DRAW 1 TO XC + 2'S"S!N(K) 3 YC-2*S* 

COS(K) 



10MODE1 

20 VDU23;8202;0;0;0;1 9,1 ,4;0;1 9,2,6,0; 

30 PROCSTAR(640,51 2,500,0) 

40 END 

50 DEFPROCSTAR(X,Y,S,C) 

60 LOCAL I 

70 IF S<16 THEN ENDPROC 

80IFC = 4THENC = 1 

90 GCOL0,C 

100 VDU29,X;Y, 

110XL = S*COS(PI/6):YL=S/2 

1 20 MOVE0,S: MOVEXL, - YL: PL0T85, - XL, 

-YL 
1 30 MOVE0, - S:M0VEXL,YL:PL0T85, - XL, 

YL 
140PROCSTAR(X,Y,S/3,C + 1) 
150 FORI = 0TO2*PI-PI/3STEPPI/3 
1 60 PROCSTAR(X + S*SIN (l)\68,Y + S'COS 

(l)\68,S/3,C + 2) 
170 NEXT 
180 ENDPROC 
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10PMODE3,1:PCLS:SCREEN1,0 
20 AN = 2'ATN(1 )/3:S2 = 2/SQR(3) 
30 XC = 1 27:YC = 95:S = 1 35:C = 4 

50GOSUB1000 

60 GOTO60 

1000S = S/3:IFS<1 THEN S = S*3: 

RETURN 
1010 IF C=2THEN C0L0R4 ELSEIFC = 1 

THENC0L0R2 ELSECOLORC 
1020DRAW"BM" + STR$(INT(XC + S2*S*SIN 

( -AN))) + "," + STR$(INT(YC- S2*S* 

COS(-AN))):FORK = 0TO8*ATN(1)-AN 

STEP 2"AN 
1030 LINE- (XC + 2"S'SIN(K),YC-2*S , COS 

(K)),PSET 
1040 LINE- (XC + S2*S*SIN(K + AN),YC- 

S2*S*C0S(K + AN)),PSET 
1050NEXT:PAINT(XC,YC) 
1060C = C-1:GOSUB1000 
1070 YC = YC-1.36*S:GOSUB1000 
1 080 YC = YC + ,68*S:XC = XC + 1 .1 9*S: 

GOSUB1000 
1090 YC = YC + 1.36*S:GOSUB1000 
1100 YC = YC + .68*S:XC = XC-1.19*S: 
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MODELS OF SYMMETRY 



SNOWFLAKE PROGRAM 



MODELS OF UNCERTAINTY 



COMPUTER MOUNTAIN 



SHAPE GEN&MTOR PROGRAM 
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Advanced fractal techniques are respo- 
nsible for some of the most convincing 
images yet generated using computer 
graphics. The large mountainscape 
shown here exists only in the memory of 
a computer, but could easily pass for the 
real thing. 

An image of this complexity takes 
masses of processing time on huge, spec- 
ialized computers, but similar techni- 
ques can be applied on home micros as 
shown by the Spectrum mountain 
image. 
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GOSUB1000 
1 1 1 YC = YC — 68*S:XC = XC — 1 .1 9*S: 

GOSUB1000 
1120YC = YC-1.36*S:GOSUB1000 
1 1 30 YC = YC + .68*S:XC = XC + 1 .1 9*S:S = 

S*3:C=C + 1:RETURN 

This program is based on the snowflake curve 
originally drawn by von Koch. It can be 
regarded as either an infinitely crinkled snow- 
flake or an island of infinite coastline. The 
program specifies (Line 20) an equilateral 
triangle (in which all three angles are 60° and 
all sides are equal), with a size factor set to S2. 
Line 30 sets up X and Y coordinates for the 
centre, a scale factor for the size of each 
triangle and a variable to vary the colour. Line 
50 calls a recursive subroutine, which draws a 
six-sided star-shaped figure. 



SYMMETRY AND CHAOS 



Despite the outline's irregularity, much of the 
symmetry of the star-shape remains. Symme- 
try is necessary for modelling shapes like the 
snowflake, which combine order and chaos, 
and such shapes are common in Nature. But 
many natural structures that can best be 
understood as fractals are totally lacking in 
symmetry. Examples of these are the bends of 
the Mississippi River, the surface of a soap- 
flake, the holes in a Swiss cheese, the craters of 
the Moon, the veins and arteries of the body 
and the shapes of mountains. What distingu- 
ishes these from the symmetrical, mathemati- 
cally generated shapes is that they also contain 
a degree of randomness. But it is possible to 
generate this, too, by using the computer's 
own random number generator. Here, for 
example, is a program to model a mountain: 



10 BORDER 0.PAPER 0:INK 7:BRIGHT 1:CLS 
15PRINTAT6,2;1NVERSE1; 

"□FRACTAL MOUNTAIN GENERATORD" 
20 DIM C(200,2,2):LET F=1:LET G = 2:LET 

C(1,1,2) = 25:LETC(1,1,1)=0 

22 INPUT "ENTER 'RESOLUTION' OF 
MOUNTAIN [16-100] ?D";S 

23 IF S< 16 OR S> 100 THEN GOTO 22 

24 INPUT "ENTER DEGREE OF 
'RUGGEDNESS' YOU REQUIRE [1 TO 
5]?D";RG 

25 IF RG < 1 OR RG > 5 THEN GOTO 24 

26 DEF FN R(X) = RG - ((RND*X)'(2*RG)) 

27 PAPER 1:CLS 

30 LET L=230/S:LET H = L/(SQR 3) 
40 FOR K=2T0 S + 1:LET C(K,1,1) = C 

(1,1,1) + L'K-FN R(1):LET C(K,1,2) = 

C(K-1,1,2)-FNR(1):NEXTK 
50 FOR J = 1 TO S:F0R K = 1 TO S-J + 1 
60LETC(K,G,1) = FNR(1) + (C(K,F,1) + C 




(K + 1,F,1))/2 
70 LET C(K,G,2) = FN R(1 ) + H + (C(K,F,2) + 

C(K + 1,F,2))/2 
80 PLOT C(K,F,1),C(K,F,2):DRAW C(K + 1,F, 

1)- PEEK 23677,C(K+1 ) F,2) -PEEK 

23678 
90 DRAW C(K,G,1)-PEEK 23677,C(K,G,2)- 

PEEK 23678: DRAW C(K,F,1) - PEEK 23677, 

C(K,F,2)- PEEK 23678 
100 NEXT K:LETF = 3-F:LETG = 3-F: 

NEXT J 
110 FOR y = 40TO0STEP -.75 
120 PLOT 0,y 
130 FOR n = 1 TO 100 
140LETa = RND*10 
150 LETb = 5 — RND*10 
1 60 IF a + PEEK 23677 > 255 THEN LET 

n = 100:DRAW 255 — PEEK 23677,b:GOTO 

190 
170 IF (PEEK 23678) + b<0 THEN GOTO 150 
180 DRAW a,b 
190 NEXT n 
200 NEXT y 
210 FOR m = USR "a" TO USR "a" + 7:READ 

a:P0KE m,a:NEXT m 
220 DATA 16,56,84,16,56,84,146,16 
230 FOR n = 1 TO 80 
240PRINTAT17 + INT(RND*4),RND*31; 

BRIGHT 1;PAPER 4;INVERSE 1;CHR$ 144; 
250 NEXT n 
260 PRINT #1;INVERSE1;AT0,4; 

"□RES' = ";S;"Dnn 

RUGGEDNESS = ";RG;"D" 
270 GOTO 270 
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10 HIRES 0,1:MULT! 5,13,0:COLOUR 6,14: 
X = 1 

15 BLOCK 0,100,159,199,3:FOR Z=1 TO 80: 
PLOT RND(1)*160,RND(1)*100,2:NEXT Z 

16 FOR Z = 1 TO 20:LINE 0,100 +XX,1 59, 
100 + XX,9:X=X + .4:XX = XX + X:NEXT Z 

20 DIM C(200,1,1):F = 0:G = 1:C(0,0,1) = 

150:C(0,0,0) = 10 
30S = 50:L = 140/S:H = L/SQR(2) 
40 FOR K = 1 TO S:C(K,0,0) = C(0,0,0) + L" 

K-3 + RND(1)'6 
45 C(K,0,1 ) = C(K - 1 ,0,1 ) - 3 + RND(1 )*6: 

NEXTK 
50 FOR J = 1 TO S:F0R K = 0TO S-J 
60C(K,G,0) = 3-RND(1)'6 + (C(K,F,0) + C 

(K + 1,F,0))/2 
70 C(K,G,1 ) = 3 - RND(1 )*6 - H + (C(K,F, 

1) + C(K+1,F,1))/2 
80 LINE C(K,F,0),C(K,F,1),C(K + 1,F,0),C 

(K+1,F,1),1 
90 LINE C{K + 1,F,0),C(K + 1,F,1) J C(K,G J 0) J C 

fK C 1 \ 

95 LINE C(K,G,0),C(K,G,1},C(K,F,0),C{K,F,1),3 
100 NEXT K:F = 1 — F:G = 1 — F:NEXT J 
110 GOTO 110 



10 GRAPHIC IrCOLOR 1,1,5,6 
15 DRAW 2,0,700 TO 1023,700 

PAINT 3,0,800 
20 DIM C(100,1,1):F = 0:G = 1:C(0,0,1) = 

850:C(0,0,0) = 28 
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30S = 20:L = 800/S:H = L/SQR(1) 

40 FOR K = 1 TO S:C(K,0,0) = C (0,0,0) + L* 

K-10 + RND(1)"20 
45 C(K,0,1) = C{K — 1,0,1) — 10 + RND(1)' 

20: NEXT K 
50 FOR J = 1 TOS:FORK=0TOS-J 
60 C(K,G,0) = 20 - RND(1 )M0 + (C(K,F,0) + 

C(K + 1,F,0))/2 
70C(K,G,1) = 20-RND(1)"40-H + (C(K,F, 

1) + C(K+1,F,1))/2 
75CL = (RND(1)'2)+2 
80 DRAW CL,C(K,F,0),C(K,F,1) TO C(K + 1,F, 

0),C{K + 1,F,1) 
90 DRAW CL TO C(K,G,0),C(K,G,1) TO C(K,F, 

0),C(K,F,1) 
100 NEXT K:F = 1 -F:G = 1 -F:NEXT J 



10MODE1 

20 DIMC(200,1 ,1 ):F = 0:G = 1 :C(0,0,1 ) = 

150:C(0,0,0) =128 
30 S = 64:L=1024/S:H = L/SQR(2) 
40FORK = 1TOS:C(K,0,0) = C(0,0,0) + L'K 

-5 + RND(10):C(K,0,1) = C(K-1,0,1) 

-5 + RND(10):NEXT 
50 FORJ = 1TOS:FORK = 0TOS-J 
60 C(K,G,0) = 20 - RND(40) + (C(K,F,0) + C 

(K + 1,F,0))/2 
70 C(K,G,1 ) = 20 - RND(40) + H + (C(K,F,1 ) 

+ C(K+1,F,1))/2 
80MOVEC(K,F,0),C(K,F,1):DRAWC(K + 1,F, 

0),C(K + 1,F,1) 
90 DRAWC(K,G,0),C(K,G,1 }:DRAWC(K,F,0), 

C(K,F,1) 
100NEXT:G = F:F = 1-F:NEXT 

10PMODE4,1:PCLS:SCREEN1,1 

20 DIMC(200, 1, 1):F=0: G = 1: C(0,0,1) 

= 150:0(0,0,0) = 10 
30S = 80:L= 230/S:H = L/SQR(3): 

DEFFNR(X) =3 -RND(0)'6 
40 FOR K = 1T0 S: C(K, 0, 0) = C(0, 0, 

0) + L"K- FNR (0): C(K,0,1)= C(K-1, 

0, 1)-FNR (0): NEXT 
50 FORJ = 1 TOS:FORK = 0TOS-J 
60C(K,G,0) = FNR(0)+ (C(K,F,0) 

+ C(K + 1,F,0))/2 
70C(K, G, 1)= FNR(0) -H + 

(C(K,F,1) + C(K + 1,F, 1))/2 
80 LINE (C(K, F, 0),C(K, F,1))- (C(K + 1, 

F,0), C(K + 1, F, 1)}, PSET 
90 LINE— (C (K,G,0), C(K, G, 1)), PSET: LINE 

- (C(K,F,0), C(K, F,1)),PSET 
100 NEXT:F = 1-F:G = 1-F: NEXT 
110GOTO110 

The program draws small, irregular triangles, 
starting from the bottom left of the screen, 
and builds up the image as plotting continues 
across and up the screen. 



Line 30 sets a size factor for the fractal tri- 
angles and specifies the length of one side and 
the height of the triangles. Line 40 loops 200 
times, setting two array variables to the 
starting coordinates for each fractal triangle. 
Notice that there is a random factor, so the 
values will vary within a small range each time 
you RUN the program. Line 50 sets up two 
loops — one to move across the screen and 
draw triangles, and another to move up the 
screen. 

The vertex of each triangle is specified at 
Lines 60 (the X coordinate) and 70 (the Y 
coordinate). Line 80 moves the cursor to the 
left-hand corner of the triangle, then draws 
the base. In the Spectrum program, notice the 
PEEKs subtracted from the coordinates to 
specify absolute points on the screen — 
without these, some points would lie off 
screen, and so cause an error when the 
computer tries to DRAW them. Line 90 DRAWs 
to the vertex of the triangle, then to the left 
corner — the start. Line 100 completes the 
first loop — to draw triangles across the 
screen — then sets variables to move the plott- 
ing position up screen and begin the next row 
of triangles. In the Spectrum version only, the 
rest of the program fills in the foreground to 
complete the picture. 



MULTIPLE SHAPES 



Changing the values of some of the variables 
in the programs you have seen so far will give 
different shapes. But the variation only affects 
the size, position and detail of the image, not 
its overall shape. The next program lets you 
specify any of a range of fractal elements, then 
see a fractal model built up from that parti- 
cular shape. The large number of subroutines 
in this listing limits the number of levels of 
recursion and therefore the detail of the image 
drawn by the Commodores, so an alternative 
program which is suitable for the Commo- 
dore 64 is given later. 



10 POKE 23658,8: LET F = 0:LET A$ = "":LET 

CL=1 
20 DIM X(100):D1M Y(100):DIM T(30):DIM 

U(30):DIM V(60):DIM W(60):DIM J(100) 
25 BORDER 0:PAPER 7:INK 0:CLS 
30 GOSLJB 140 
40 GOSUB 350 
50 INPUT "No OF LEVELS OF RECURSION - 

D";NR:IFABS (INT (NR))<1 THEN 

GOTO 50 
60 LET F = 1 :LET N = 0:CLS 
70 PLOT INVERSE 1;0VER 1;INT(127 + X(P)), 

INT(85 + Y(P)) 
80 GOSUB 500:IF P> =2 THEN GOTO 80 
90 LET A$ = INKEY$:IF A$ = "" THEN GOTO 
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100 PRINT #1;"Q TO QUIT, ANY OTHER TO 

CONTINUE" 
110 LET A$ = INKEY$:IFA$ = "" THEN GOTO 

110 
120IFA$o"Q"THENGOTO25 
130CLS:STOP 
140 IF F = THEN GOTO 170 
150 PRINT "SAME INITIAL SHAPE [ Y/N ] 

?□"; 
1 60 LET A$ = INKEY$:IF A$ <> "Y" AND 

A$o"N" THEN GOTO 160 
165 PRINT A$ 

170 IF F = OR A$ = "N" THEN GOSUB 230 
180 FOR K = 2 TO CV+1 
1 90 LET P = K ^ 1 

200LETX(P)=T(K):LETY(P) = U(K) 
210 NEXT K 
220 RETURN 

230 INPUT"N0 OF VERTICES IN INITLTWT 
240FORL = 2TOVT+1 
250 INPUT "VERTEXn";(L-1);" = '"X,Y 
260 LET T(L) = X'85: LET U(L) = y*85 
270 IF L = 2 THEN PLOT INT (127+T{L)),INT 

(85 + U(L)) 
275 IF L<> 2 THEN DRAW 

1 27 +T(L) - PEEK 23677,85 + U(L) - 

23678 
280 NEXT L 

290 PRINT "CLOSED CURVE [ Y/N ] ?□"; 
300 LET A$= INKEY$: IF A$< >"N" AND 

A$oT THEN GOTO 300 
305 PRINT A$ 
310 IFA$ = "N"THEN LET CV=VT:PAUSE 

0RETURN 
320LETCV = VT + 1:LETT(CV + 1) = T(2): 

LETU(CV + 1) = U(2) 
330 DRAW 1 27 + T(CV) - PEEK 23677,85 + U 

(CV) — PEEK 23678 
340 RETURN 

350 CLS:IFF = THEN GOTO 380 
360 PRINT "SAME GENERATOR [ Y/N ] ?□"; 
370 LET A$ = INKEY$:IF A$ <> "Y" AND 

A$oT THEN GOTO 370 
375 PRINT A$ 

380 IF F = OR A$ = "N" THEN GOSUB 400 
390 RETURN 
400 INPUT "NO OF VERTICES IN 

GENERATOR NOT INCLUDING ENDS 

(0,0)AND{1,0)D";GN 
420 PLOT INVERSE 1;0VER1;85,85 
430FORM = 2TOGN + 1 
440 INPUT "GENERATOR VERTEXD"; 

(M-1);" = "'X,Y 
450 IF ABS(INT (X)) > 1 OR ABS(INT (Y)) > 1 

THEN GOTO 440 
460 LET V(M) = X:LET W(M) =Y:LETX = X 

'85 + 85:LETY = 85 + Y*85:DRAW 

X — PEEK 23677,Y— PEEK 23678 
470 NEXT M 
480 DRAW 1 75 - PEEK 23677,85 - PEEK 
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23678:PAUSE 
490 RETURN 

500 IF NR = N THEN GOSUB 520 
505 IF NRoN THEN GOSUB 570 
510 RETURN 

520 FOR W = 1 TOGN + 1 
530 LET P = P 1 
540 IF ABS X{P)>127 OR ABSY(P)>85 

THEN GOTO 560 
550 DRAW 127 + X(P) - PEEK 23677, 

85 + Y(P)- PEEK 23678 
560 NEXT W:RETURN 
570 LET N = N + 1 
580 IF N = 1 THEN LET JM = CV-1 
585IFN<>1 THEN LET JM = GN + 1 
590 FOR E = 1 TQJM 
595 IF P = 1 THEN LET E = JM:NEXT 

E:RETURN 
600LETTX = X(P):LETTY = Y(P) 
610 LET BX = X(P-1):LET BY = Y(P — 1) 
620 LET DX=TX-BX:LET DY=TY-BY 
630 FOR F = 2 TOGN + 1 
640 LET X(P) = DX"V(F) - DY*W(F) + BX 
650 LET Y(P) = DY*V(F) + DX'W(F) + BY 
660LETP = P + 1 
670 NEXT F 

680LETX(P)=TX:LETY(P) = TY 
690 LET J(CL) = E:LET CL=CL+ 1 :GOSUB 

500:LETCL = CL-1:LETE=J(CL) 
700 NEXT E 
710LETN = N-1 
720 RETURN 



\% 



10 DIMX(50) ,Y(50) ,XT(10) ,YT(10) ,XG(20) 

,YG(20) ,J{50) 
15F = 0:A$ = "":CL = 
20MODE1:VDU28,0,2,39,0 
30GOSUB140 
40 GOSUB350 
50 INPUT'NO OF LEVELS OF 

RECURSIOND";NR%:IF NR%<1THEN50 
60F = 1:N=0:CLG 
70MQVE640 + X(P),480 + Y(P) 
80GOSUB500:!FP>0THEN80 
90 VDU7 
100 CLS:PR!NT"Q TO QUIT, ANY OTHER KEY 

TO CONTINUE" 
110 A$ = GET$ 

120 IF A$ = "Q" THEN CLS:END ELSE 20 
140 IFF = 0THENGOSUB230:GOTO180 

5150 INPUT'SAME INITIAL SHAPE (Y/N)?";A$ 
170 IF A$ = "N" THEN GOSUB230 
180FORK = 1TOCV 
1 90 P = K — 1 
200X{P) = XT(K):Y(P) = YT(K) 
210 NEXT 
220 RETURN 

230 INPUT'NO OF VERTICES IN INITIAL 
SHAPE □";VT%:IFVT% < 1THEN230 
240FORL = 1TOVT% 



250 PRINT"VERTEXD";L;:INPUT" D - □" 
X,Y:IF ABS(X) >10RABS(Y) > 1THEN250 
260XT(L) = X'512:YT(L) = Y'420 
270 IFL = 1THENMOVE640 + XT(L) ,480 + YT 

(U 
280 DRAW640 + XT(L),480 + YT(L}:NEXT 
290 INPUT'CLOSED CURVE (Y/N)?";A$ 
310 IFA$ = "N"THENCV = VT%:DEL = 

INKEY(200): RETURN 
320 CV = VT% + 1 :XT(CV) = XT(1 ):YT(CV) 

= YT(1) 
330 DRAW640 + XT(CV) ,480 + YT(CV) 
340 RETURN 

350 CLS:IFF = THEN 380 
360 INPUT'SAME GENERATOR (Y/N)?";A$ 
380 IF A$ = "N" OR F = 0THEN GOSUB 400 
390 RETURN 
400 PRINT'NO OF VERTICES IN 

GENERATOR" 
410 INPUT'NOT INCLUDING ENDS (0,0) 

AND (1 J ,0)";GN%:IFGN%<1 THEN410 
420 CLG:MOVE640,480 
430 FORM = 1TOGN% 
440 PRINT'GENERATOR VERTEXn";M;: 

INPUT"D-D"X,Y 
450 IF ABS(X) > 1 0R ABS(Y) > 1 THEN 440 
460XG(M} = X:YG(M)=Y:X = X*512 + 640: 

Y = Y*420 + 480:DRAWX,Y 
470 NEXT 

480 DRAW1 152,480 
490RETURN 

500 IF(NR%=N)GOSUB520ELSE GOSUB 570 
510 RETURN 
520FORL=1TOGN% + 1 
530 P = P — 1 

550DRAW640 + X(P),480 + Y(P) 
560 NEXT:RETURN 
570N = N + 1 
580IFN = 1THENJM = CV-1 ELSE 

JM = GN% + 1 
590 FORJ = 1TOJM 
600TX = X(P):TY=Y(P) 
610 BX=X{P 1):BY = Y(P — 1) 
620DX = TX-BX:DY=TY-BY 
630FORE = 1TOGN% 
640 X(P) = DX'XG(E) - DY*YG(E) + BX 
650 Y(P) = DY*XG(E) + DX'YG(E) + BY 
660P = P + 1 
670 NEXT 

680X(P)=TX:Y(P)=TY 
690 J(CL) = J:CL = CL + 1 :GOSUB500: 

CL = CL-1:J = J(CL) 
700 NEXT 
710 N = N — 1 
720 RETURN 



ISO 

10DIMX(50),Y(50),XT(10),YT(10),XG(20), 

YG(20),J(50) 
20 PMODE4,1:COLOR0,1:PCLS:CLS 
30GOSUB140 



40 GOSUB350 

50 INPUT'NO. OF LEVELS OF 

RECURSION — ";1MR:NR = INT(NR):IF 

NR<1 THEN 50 
60F=1:N = 0:PCLS:SCREEN1,0 
70 LINE-(127 + X(P),96-Y(P)), PRESET 
80GOSUB500:IFP>0THEN80 
90 A$ = INKEY$:IF A$ = "" THEN 90 
100 CLS:PRINT"Q TO QUIT, ANY OTHER 

KEYTOnnnnncoNTiNUE" 

110 A$=INKEY$:IFA$ = "" THEN 110 

120IFA$o"Q"THEN20 

130 CLSrEND 

140 IF F = THEN 170 

150 PRINT'SAME INITIAL SHAPE (Y/N) ?"; 

160 A$ = INKEY$:IF A$o"Y" AND 

A$o"N" THEN 160 ELSEPRINTAS 
170 IF F = OR A$ = "N" GOSUB 230 
180 FORK = 1TOCV 
190 P = K 1 

200X{P)=XT(K):Y(P)=YT(K) 
210 NEXT 
220 RETURN 
230 INPUT"NO. OF VERTICES IN INITIAL 

SHAPE D";VT:VT=INT(VT):IFVT<1 

THEN 230 
240FORL = 1TOVT 
250 PRINT"VERTEXD";L;:INPUT"D - □"; 

X,Y:IFABS{X)>1 ORABS(Y)>1 THEN 

250 
260XT{L)=X*95:YT(L)=Y*95 
270 IF L=1 THENLINE-(127 + XT(L),96- 

YT{L)), PRESET ELSE LINE— (127 + XT{L), 

96-YT(L)),PSET 
280 NEXT 

290 PRINT'CLOSED CURVE (Y/N) ?"; 
300A$ = INKEY$:IFA$o"N"AND 

A$< >"Y" THEN 300 ELSEPRINTA$ 
310 IF A$ = "N" THEN CV=VT:GOSUB730: 

RETURN 
320 CV = VT + 1 :XT(CV) = XT(1 ):YT(CV) = YT 

(1) 
330 LINE - (1 27 + XT(CV),96 - YT(CV)),PSET: 

GOSUB730 
340 RETURN 

350 PCLS:IFF = THEN 380 
360 PRINT'SAME GENERATOR (Y/N) ?"; 
370 A$ = INKEY$:IF A$ <> "Y" AND 

A$o"N" THEN 370 ELSEPRINTA$ 
380 IF F = OR A$ = "N" GOSUB 400 
390 RETURN 
400 PRINT'NO. OF VERTICES IN 

GENERATOR" 
410 INPUT'NOT INCLUDING ENDS (0,0) 

ANDDnnn(1,0)n-D";GN:GN = 

INT(GN):IFGN<1 THEN 410 
420 DRAW"BM80,96" 
430 FOR M = 1 TOGN 
440 PRINT'GENERATOR VERTEX";M;:INPUT 

"□ — □"'X Y 
450 IF ABS(X)>1 OR ABS(Y}>1 THEN 440 




460XG(M)=X:YG(M)=Y:X = X"95 + 

96-Y*95:L!NE-(X,Y),PSET 
470 NEXT 

480 LINE -{1 75,96), PS£T:GOSUB730 
490 RETURN 

500 IF NR = N GOSUB520 ELSEGOSUB570 
510 RETURN 
520FORL = 1TOGN + 1 
530 P = P — 1 
540 IF ABS(X(P)) > 1 27 OR ABS(Y(P)) > 95 

THEN 560 
550LINE-(127 + X(P),96-Y(P) 
560 NEXT: RETURN 
570N = N + 1 
580 IF N = 1 THEN JM=CV E'.SI 

JM = GN + 1 
590 FORJ = 1TOJM 
600TX = XfP):TY = Y(P) 
610 BX = X{P — 1):BY = Y(P — 1) 
620DX = TX-BX:DY = TY-BY 
630FORE=1TOGN 

640 X(P) = DX*XG(E) - DY*YG(E) + BX 
650 Y(P) = DY'XG(E) + DX'YG(E) + BY 
660 P = P + 1 
670 NEXT 

680X(P)=TX:Y(P) = TY 
690J(CL)=J:CL=CL + 1:GOSUB500:CL = 

CL-1:J=J(CL) 
700 NEXT J 
710N = N-1 
720 RETURN 

730 A$ = INKEY$:SCREEN1 ,0: K = 1 000 
740 K = K-1:IF K>0 AND 1NKEY$ = "" 

THEN 740 




When you RUN the program, Line 230 asks 
you how many corners (vertices) you want in 
the shape that forms the starting point for the 
fractal. It's best to draw the shape out first on 
a sheet of paper. Mark two dots representing 
the start and end of the line then link these 
with a number of short straight lines. Count 
up the number of corners and enter this into 
the program. But remember that you will 
then have to specify coordinates (Line 250) 
for all the corners, so keep the number 
small — three or four, say. The coordinates 
should be given values between and 1 . The 
loop between Lines 240 and 280 lets you 
enter coordinates and draw the initial shape. 
You can then choose whether the figure you 
have specified should be closed or left with an 
opening (Line 290). 

The next input stage lets you specify the 
shape with which each straight line will be 
replaced — this shape is usually called the 
generator. Draw this out and enter the in- 
formation as you did for the initial shape — the 
subroutine that inputs and draws the shape 
lies between Lines 400 and 490. Now you are 
asked to specify the number of levels of 
recursion. When you have entered the value, 
Line 80 calls a subroutine to determine 
whether the program is being run for the first 
time (in which case it branches to the main 
routine — Lines 570 to 720 — to draw the 
fractals), or whether it should recycle and give 



you the option to redefine the generator. 

nana 

As an example, enter a value of 3 for the 
number of vertices in the initial shape. Then 
enter coordinates — .5, - .2 for vertex 1; 0, 
0.4 for vertex 2; 0.5, —0.2 for vertex 3. If 
now you reply N to the prompt 'CLOSED 
CURVE ?', a triangle without the base drawn 
will appear on the screen. Similarly, if you 
enter 3 for the number of vertices in the 
generator, you could specify coordinates: 0.2, 
for vertex 1; 0.4, 0.8 for vertex 2; 0.6, for 
vertex 3. This gives a shape of a base-less 
triangle sitting on a line. Now enter about 5 
for the level of recursion, and see what fractal 
is drawn. 
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10 PRINT "□' 

20CX = 160:CY = 101 

30 X=. 50001 :Y = 

40 GOSUB 330 

50 HIRES 0,1 

60 GOSUB 110 

70 FOR 1 = 1 TO10:GOSUB250: 

NEXT! ^^ 
80 GOSUB 380 
90 GOSUB 250 
100 GOTO 80 
110T = Y 

120S = SQR((X'X) + (Y*Y)) 
130Y = SQR((-X + S)/2) 
140X = SQR((X + S)/2) 
150IFT<0THENX=-X 
160 RETURN 

170S = (AX*AX) + (AY'AY) 
180AX=6'(AX/S) 
190AY=-6'(AY/S) 
200 RETURN 
210TX = X:TY = Y 
220X = {TX*AX)-(TY , AY) 
230Y = (TX*AY) + (TY'AX) 
240 RETURN 
250 GOSUB 210 
260X = 1-X 
270 GOSUB 110 
280IFRND(1)<. 
290IFRND(1)<. 
300X = 1-X 
310X = X/2:Y = Y/2 
320 RETURN 
330 PRINT "ENTER X & Y FACTORS": 

INPUT AX,AY 
340 PRINT "ENTER SCALE FACTOR": 

INPUT OP 
350 GOSUB 170 
360SC = 2*CX/OP 
370 RETURN 

380 PL0TSC*(X-.5) + CX,CY-SC*Y,1 
390 RETURN 



.5THENX=-X 
.5THENY=-Y 



11 



fiUilltllVlill 



IIFFHAN 
A SAD DE 




Death comes to all of us— but to 
none more often than Willie. He 
expires five times every game, but 
he still fives to climb the cliff again 
another day! 



However good you are at playing games the 
grim reaper is bound to get his hands on 
Willie sooner or later. But don't be too upset. 
He does have five lives — not as many as a cat 
but a good many more than poor normal 
mortals. When he is dead, you have to bury 
him, reset all the variables and check whether 
the game is over. 

On the Commodore and Acorn computers 
you are also getting some sound effects. The 
sounds you can get from the Spectrum are 
much simpler and are supplied in the 
programs as you go along. And though the 
Dragon and Tandy can produce fairly so- 
phisticated sounds they have to be produced 
using processor time. On the Commodore 
and Acorn there are separate chips which can 
produce sounds while the main processor is 



doing something else— but on the Dragon and 
Tandy the main processor has to be used, so 
you cannot make a sound and play the game at 
the same time. 



The following routine kills off Willie and 
checks to see whether he can be resurrected. 



die 



org 59652 
ldde,196 
Id hi, 1086 
call 949 
ldde,131 
Id hl,1646 
call 949 
Id hl,(57332) 
ldbc/15616 



Id de,32 
add hl,de 
Id (57332),hl 
Id bc,57000 

Id a.40 



Id de,258 
call 58970 
Id de,30 
Id hl,878 
Id a,r 
Id Ua 
call 949 
Id hl,(57332) 
Id de,704 
sbc hl,de 
jr c,dead 
lda,9 



Id (60005),= 
Id a,(57343) 
dec a 

Id (57343),a 
jp nz,58606 
Id hl,330 
Id a,142 
ldb,11 
Id ix,57992 
call 58155 
call 58939 
Id de,261 
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FOR WHOM THE BELL TOLLS 



DROPPING DOWN THE SCREEN 



DECREMENTING LIVES 



PRINTING UP SCORE 



ENDING THE GAME 



The 'CLIFFHANGER' listings published in this 
magazine and subsequent parts bear absolutely no 
resemblance to, and are in no way associated with, 
the computer game called 'CUFF HANGER' re- 
leased for the Commodore 64 and published by 
New Generation Software Limited. 



Id hl 3 1646 
call 949 
Id de,392 
Id hl,1086 
call 949 
Id de,261 



ldhl,1646 
call 949 
Id a : 50 

Id (58734),a 
jp 58576 



Once Willie has fallen down a hole, been 
bitten by snakes, hit by a boulder or drowned 
in the sea, the first thing that happens is that 
his death knell is sounded. In fact, two bells 
are tolled to give the correct sombre sound. 
This is done by calling the BEEPER routine 



943 twice and feeding different parameters to 
it each time through the HL and DE registers. 
For details of how the pitch and duration of 
the bell tolls are worked out see page 732. 



DESCENT INTO THE INFERNO 



When Willie is dead he descends to the 
inferno that lies just off the bottom of the 
screen. And to do that you start off by 
blanking out his head — you don't want a 
string of decapitated heads left down the 
screen! 




So Willie's screen position — which points 
to the position of his head — is loaded up from 
its storage location 57,332 into the HL regis- 
ter. BC is loaded with the address of blank sky 
at the top of the screen. A is set to cyan on 
cyan. And the print routine at 58,217 is called 
which prints a piece of sky over Willie's head. 

Then 32 is added to the screen pointer in 
HL, via the DE register. This moves it one 
line down the screen. The result is stored back 
in 57,332 to update that pointer, too. 

BC is loaded up with the start address of 
the picture of Willie with his legs together. A 
is set to Willie's colours, blue on cyan. DE is 
loaded with 258, specifying a block of one by 
two — the width of the block is specified by the 
contents of the D register and the depth is 
specified by the contents of the E register 
1x256 + 2 = 258. And the block print 
routine, blk, at 58,970 is called. This prints a 
picture of Willie with his legs together one 
square down the screen from the position of 
his last appearance. 

And while Willie descends, a celestial siren 
sounds. Again the DE and HL register pairs 
are loaded with parameters to be passed into 
the BEEPER routine when it is called at 949. 
But this time, instead of a constant tone, the 
program needs a sort of warbling sound. This 
is done by loading the contents of the refresh 
register, R, into the low byte of the HL 
register which is just plain L. It's done via the 
accumulator because there is no Id l,r 
command. 

The refresh register is used to refresh 
dynamic memory. This is a hardware facility 
that you needn't bother with here. The 
important thing about the refresh register is 
that it has a different value in it each time you 
look at it. So each time this part of the routine 
is performed it will produce a different pitch. 



The position of Willie's head is loaded into 
HL from 57,332 again and 704 is loaded into 
DE and subtracted from the contents of HL. 
704 is 32 x 22, so it marks the beginning of 
the second to last line. As Willie is two 
character squares high, this subtraction sets 
the carry flag until Willie's feet have touched 
the bottom of the screen. 
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Kjf, 48 



While the carry flag is still set, jr c,dead 
takes the processor back to the beginning of 
the burial routine again. Willie will be buried 
one character square deeper and more 
celestial sirens will wail — at a different pitch. 
But when Willie's feet touch the floor of the 
upper world, he has been buried deep 
enough. The carry flag will no longer be set 
by the subtraction and the jump will no 
longer be made. The processor will proceed 
with the next instruction. 

With Willie in Hades it's time to play a 
happy little sound. So A is loaded with 9 and 
the sound routine at 60,006 is called. This 
plays a short version of the tune. For details of 
how the music routine works see Cliffhanger 
on page 966. 

Then the number of lives have to be 
updated — or rather, downdated. Willie has 
lost a life. So the number of lives is loaded up 
into the accumulator from 57,343, decremen- 
ted and stored back in 57,343. 

If there are still some lives left, the jp nz 
instruction sends the processor back to the 
initialization program at 58,606. If not, the 
processor proceeds into the game-over 
routine. 



CHARNEL NUMBER FIVE 



When Willie has been killed five times, the 
game is over and you need to print 'GAME 
OVER!!' This is done by calling the message, 
or me, routine at 58,155. But as always 
parameters have to be fed through to it in the 
HL, A, B and IX registers. 

The print position is carried in HL. The 
colour is set in A. B carries the message length 
and IX is used as the data pointer. The 
message data is at 57,892. 

The routine that prints up the score at 
58,939 is then called to print up the final 
score. 

Next, the chimes that signal the end of the 
game sound. These are produced by calling 
the BEEPER routine at 949 three times with 
different values in HL and DE each time to 
produce different tones. 

The initial delay value is then reset by 
loading the accumulator with 50 and loading 
it into memory location 58,732. Then the 
processor jumps back into the game at 58,578 
and sets it up for you to try again if that's what 
you fancy. 



On the Commodore, checking to see whether 
Willie is dead is a relatively easy matter. You 
simply have to check for sprite collisions. 
This routine does that — and takes the appro- 
priate action to bury poor Willie six foot 
under. 



AA 



ORG 25680 
LDASD01E 
STA $035C 
LDA$D01F 
STA $035D 
LDA $035C 
AND #64 
BEQAA 
LDA #4 
STA $0384 
JSR $6350 
INC $C000 
LDA #155 
RTS 

LDA S035C 
AND #1 





BEQBB 




LDA #3 




STA $0384 




JSR $6850 


DD 


DEC SC001 




LDA #254 




RTS 


BB 


LDA $035D 




AND #1 




BEQCC 




LDA #3 




STA $0384 




JSR $6850 




JMPDD 


CC 


LDA #0 




RTS 



Memory location $D01E is the sprite-to- 
sprite collision detection register. Each sprite 
has a bit in this register and whenever a sprite 
is in collision with another sprite the appro- 
priate bit in this register is set. 

And memory location $D01 F is the sprite- 
to-UDG collision detection register. Whene- 
ver a sprite is involved in a collision with a 
UDG, the appropriate bit is set. 



THINGS THAT GO BUMP 



The contents of the sprite-to-sprite collision 
detection register are loaded up into the ac- 
cumulator and stored in S035C, which is a 
convenient location in the cassette buffer for 
temporary storage. Then the contents of the 
sprite- to- UDG collision detection register 
are loaded into the accumulator and stored in 
$035D. 

When these two registers are read by 
loading their contents into a register, they are 
automatically cleared, ready to detect the next 
collision. So if a particular register has to be 
referred to more than once, you have to store 
the contents in a convenient location. 



REWARDING COLLISION 



Not all the collisions Willie makes are unplea- 
sant. Sometimes he bumps into a reward. 

The rewards are in sprite six. So the 
contents of $035C are loaded into the ac- 
cumulator and ANDed with 64. This isolates 
bit six. If it is not set — and Willie has not yet 
reached his reward — the BEQ instruction 
branches forward over the next part of the 
routine. 

But if bit six is set, the branch is not made 
and the processor goes to the next instruc- 
tion. The accumulator is loaded with 4 which 
is then stored in memory location $0384. 
This is the location that is used to pass 
parameters into the sound effects routine at 
$6850. You will see this listing in a moment. 
A 4 in $0384 makes that routine play the 



winning sound, and when the processor 
jumps to the subroutine at $6850 it does just 
that. 

When it comes back it moves up a level by 
incrementing the level number which is 
stored in memory location $C000. Then the 
accumulator is loaded with 155 and the 
processor hits the RTS and returns. 

This routine uses the accumulator to carry 
parameters out of the routine. These depend 
on the nature of the collision and tell other 
routines what to do next. 



COLLISION COURSES 



The contents of $035C are loaded into the 
accumulator again and ANDed with 1. Willie 
is on the zero sprite, so if he has collided with 
any other sprite — a snake, a boulder, a cloud 
or a gull — the zero bit of the register will be 
set. 

If it is not set, the BEQ branches forward. 
But if it is, the processor performs the next 
little routine. 

A 3 is loaded into the accumulator and 
stored in $0384, and the processor jumps to 
the subroutine at $6850. This plays the losing 
sound. 

And when the processor returns the num- 
ber of lives in $C001 are decremented. The 
accumulator is then loaded with 254 which it 
carries out of the routine when the processor 
hits the RTS and returns. 



DATA DETECTION 



But Willie is not just killed off by accidents 
with sprites. Bumping into a UDG — like the 
sea or a hole — can be just as dangerous. So the 
contents of memory location $0350 are 
loaded up into the accumulator and ANDed 
with 1 . Again, any collision involving Willie 
will set bit zero of that register because Willie 
is on sprite zero. 

If this bit is not set either, Willie has 
bumped into neither a sprite nor a UDG and 
the BEQ instruction branches the processor 
forward to the label CC. There, the ac- 
cumulator is loaded with before returning. 

But if this bit is set, Willie has bumped into 
something bad again and is dead. So 3 is 
loaded into the accumulator and stored in 
$0384 and the processor jumps to the routine 
at $6850 again to play the losing sound. Then 
the processor jumps back to DD, where it 
decrements the number of lives and exits the 
routine with 254 in the accumulator again. 
Whatever bad thing Willie hits — be it sprite 
or UDG — the result is the same. 



NOISES OFF 



The routine above called the sound effects 
routine at $6850 several times. This is it: 
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ORG 26704 




LDA #129 




LDA #15 




STA $D404 




STA$D418 




LDA #240 




LDA #30 




STA $D406 




STA $D401 


GG 


LDA $0384 




LDA #0 




CMP #3 




STA $D406 




BEQCC 




LDA $0384 




I NX 




CMP #1 




CPX #50 




BNEAA 




BNEDD 




LDA #1 


EE 


LDA #0 




STA $D405 




STA $D404 




JMPFF 




RTS 


AA 


LDA $0384 


CC 


DEX 




CMP #2 




CPX #10 




BNEBB 




BEQEE 




LDA #85 


DD 


STX $D401 




STA $D405 




LDA #90 


FF 


LDA #0 


LOO PA 


LDY #255 




STA $D404 


LOOP 


DEY 




LDA #33 




BNE LOOP 




STA $D404 




CLC 


RET 


RTS 




SBC #1 


BB 


LDX #30 




BNE LOOPA 




LDA #0 




JMPGG 




STA $D404 







Making a noise is not an easy job. First of all, 
you have to decide how loud it is going to be, 
what the pitch is and how long the sound goes 
on. Then you have to define its shape — how 
quickly it reaches its maximum volume, how 
soon the peak is over, how long it is sustained 
and how quickly it finally dies away. 

These vital parameters of any sound are 
called its envelope — see pages 1138-1144. 



LICKING THE ENVELOPE 



A is loaded with 15 which is stored in $D418. 
This is the register on the SID chip that 
selects the filters — bits four to seven — and 
sets the volume — bits zero to three. A 15 
selects the maximum volume and leaves the 
filters alone. 

The number 30 is then put into $D01 
which controls the high byte of the frequency. 
And is put into D406, which is the envelope 
generator that controls the sustain and 
release. 

The parameter that is going to tell the 
routine what sound to make is then loaded up 
from $0384. It is compared to 1. 

If a 1 is not found, the BNE instruction 
branches the processor forward to the label 
AA. But if it is found, a 'blip' is required and 
the process continues. 

A 1 is put into $D405. This is the register 
which controls the attack and decay of the 
note. The attack is specified by bits four to 
seven and is set to its minimum value 0. The 
decay — in bits zero to three — is set to 1, 



«=3=» 




Illlllllll 



iMCHlHiCODJ 



MUM 



giving the characteristic 'blip' sound. 

The processor then jumps forward to the 
label FF where the sound is output. 



BEEPING ABOUT 



If no 'blip' is required the process skips to the 
label AA where the contents of $0384 are 
loaded into the accumulator again. They are 
then compared to 2 — a 2 means that a 'beep' is 
required. 

Again if it is not found the BNE instruction 
branches the processor forward over the beep 
routine. Otherwise, the processor continues. 

A is loaded with 85, which is stored in 
$D405. This sets both the attack and the 
decay to 5. 



SOUND OUT 



Whether a blip or a bleep is required, the 
processor then ends up at FF, where a is 
loaded into the accumulator and stored in 
SD404. This is the byte that controls the 
output of sound and setting it to starts the 
release — in other words, it turns the last 
sound to be made off. 

A 33 is then loaded up into the accumulator 
and stored in $D404. This sets bit five — 
which gives a sawtooth waveform — and bit 
zero which switches on the attack and decay. 
In other words, it switches the sound of the 
next note on. 

The blip or beep begins and the processor 
hits an RTS and returns. 



LOONY TUNES 



The next part of the routine 
plays the winning sound 
or the losing sound. 
They are in fact the 
same sound, but 
the winning 
sound is 



played with the pitch rising triumphantly and 
the losing sound is played with the pitch 
dropping dismally. 

In both cases, the pitch starts off from the 
same place and 30 is loaded into the index 
register X to start the count. 

A is loaded into the accumulator and 
stored in SD404 to turn the last note off 
again. Then 129 is put into $D404 to turn on 
white noise. 

The number 240 is put into $D406 to set 
the sustain to the maximum 15. Then the 
routine looks to see which sound it should 
play. 

The contents of $0384 are loaded into the 
accumulator and compared with 3. A 3 in 
$0384 means that the losing sound is to be 
played and the BEQ instruction branches the 
processor forward. 

But if the winning sound is to be played, 
the branch is not made and the processor 
proceeds to the next instruction. INX incre- 
ments the contents of the X register and they 
are compared to 50. 

If the result is not 50, the BNE instruction 
sends the processor forward. But if it is 50, 
the processor loads its accumulator with 
and stores it in $D404, turning the last 
note off. It then returns. 

If the losing sound is required, 
the DEX instruction decrements 
the contents of the X 



register and they are compared to 10. If 10 is 
found, the BEQ branches the processor back to 
the label EE, where the note is turned off and 
the routine is exited again. 

If not, the processor continues. The result- 
ing contents of the X register are stored in 
$D401 — the high byte of the pitch — whether 
X has been incremented or decremented. 



PROLONGING THE AGONY 



A is loaded with 90 and Y is loaded with 255. 
These numbers are going to be used as the 
parameters for two nested loops which are 
here simply to slow the game down at this 
point to give each note time to be heard. 

The contents of the Y register are de- 
cremented and the BNE sends the processor 
round and around that LOOP until Y has 
counted down to zero. Then the carry flag is 
set and 1 is subtracted from the accumulator. 
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Remember, you normally set the carry flag 
before a subtraction to prevent an extra 
borrow being taken into account. So here, 2 is 
really subtracted from the contents of the 
accumulator. 

And if A has not counted down to zero the 
BNE instruction sends the processor back 
round LOO PA to load Y up with 255 and start 
decrementing that all over again. 

When A has finally counted down to zero, 
the processor jumps back to give the next 
'note'. 



The following routine does the rest of the 
sound effects for the BBC version of Cliffhan- 
ger and makes the necessary funeral arrange- 
ments if Willie is dead. 

Don't forget to set the computer up as 
usual before you key it in. 




30FORPASS = 0TO3STEP3 
40 RESTORE 

80 DATA1, 0,4,0,1 40,0,20,0 
90FORA% = &14DETO&14E5:READ?A%:NEXT 
100P%-&14E7 
110 [OPTPASS 
120 .Bell 
130 JSR&T52B 
1 40 LDA # 8 
150 LDX#&91 
160 LDY#&14 
170 JSR&FFF1 
180LDA#7 
190LDX#&DE 
200LDY#&14 
210 JSR&FFF1 
220 RTS 
230] 

270 DATA1 ,2,255,0,0,255,0,0,1 26,255,255, 
255,126,126 



280 F0RA% = &1 4FDT0&1 50A: READ?A%: 

NEXT 
290 DATA1, 0,1, 0,21 0,0,55,0 
300 F0RA% o &1 50CTO&151 3:READ?A%: 

NEXT 
310 P% = &1515 
320 [OPTPASS 
330 .Cry 
340JSR&152B 
350 LDA #8 
360 LDX#&FD 
370LDY#&14 
380 JSR8.FFF1 
390 LDA #7 
400LDX#&C 
410LDY#&15 
420 JSR&FFF1 
430 RTS 
440] 

480 DATA 1,0,241,255,10,0,1,0 
490 F0RA% = &1 BC0TO&1 BC7:READ?A%: 

NEXT 
500 P% = &1BC8 
510 [OPTPASS 
520 .Plod 
530JSR&152B 
540 LDA #7 
550LDX#&C0 
560 LOY # &1 B 
570 JSR&FFF1 
580 RTS 
590] 
630 DATA 1,129,1,0,-1,20,10,20,126,0,0, 

-126,126,126 
640 F0RA% = &1 BD5T0&1 BE2:REA0?A%: 

NEXT 
650 DATA17,0,1,0,1 28,0,1 0,0 
660 F0RA%= &1 BE3T0&1 BEA:READ?A%: 

NEXT 
670 P%=&1BEB 
680 [OPTPASS 
690 Jump 
700JSR&152B 
710 LDA#8 
720LDX#&D5 
730 LDY#&1B 
740 JSR&FFF1 
750 LDA #7 
760 LDX#&E3 
770 LDY#&1B 
780 JSR&FFF1 
790 RTS 
800] 
810$&20D6 = CHR17 + CHR$131+CHR$ 

17 + CHR$4 + CHR$31+CHR$5 + CHR$ 

20+"QDDDDDDDDDD" 
820 $&20E9 = CHR$31 +CHR$5 + 

CHR$21+"DGame0vern" 
830 $&20F8 = CHR$31 + CHR$5 + 

CHR$22+"nnn □□□□□□□ 

D" 



850 P% = &21 07 
860 [OPTPASS 
870 .Dead 
880 LDA&7B 
890 BEQLbl 
900 RTS 
910.LM 
920 DEC&89 
930 LDA&7D 
940ORA#&80 
950 STA8.7D 
960LDA#15 
970LDX#0 
980 JSR&FFF4 



FOUR SOUNDS 



990 LDA&89 
1000 BEQLb2 
1010 RTS 
1020 .Lb2 

1030LDX#0 
1040 .Lb3 
1050 LDA&20D6,X 
1060JSR&FFEE 
1070 INX 
1080 CPX# 8.49 
1090 BNELb3 
1100 RTS 
1110 ]NEXT 



The first part of this program is made up of 
four modules that work in exactly the same 
way. Each starts off with a block of DATA 
which defines the sound effect in question. 
This is READ into a data table in memory so 
that the machine code program can access it. 

Then, when the processor passes into the 
assembly language program it jumps to the 
subroutine at &152B. This is the one that 
allows you to turn the sound effects off (see 
page 1243). Next, the A register is loaded with 
8, and the X and Y registers are loaded with 
the low and high bytes of the appropriate 
piece of envelope data. The processor then 
jumps to the subroutine at &FFFI . This is an 
OSWORD call and the 8 in A means that it 
defines a sound envelope with the data pro- 
vided in the fourteen memory locations from 
the address given in X and Y onwards. Next, 
A is loaded with 7. This means that the sound 
itself will be output when the OSWORD call is 
made. Again, X and Y are used to carry the 
low and high bytes of the base address of the 
data for the sound which is given here. The 
sound itself only requires eight bytes to define 
it. Then &FFF1 which actually makes the 
sound is called. When the sound has been 
made, the processor returns. 

The sounds here are a bell, a cry, Willie's 
walking sound and Willie's jumping sound. 
You'll notice that the data for the envelope for 
the cry and the jump are given within the 
program here. The envelope for the bell is the 
same as the one used for the crunch which was 
defined before on page 1243. And Willie's 
walking sound does not need to have its 
envelope defined because a simple plodding 
sound does not need an envelope. The com- 
puter is told that it does not need an envelope 
by the second and third byte of the sound 
data. These are the equivalent of the second 
parameter of a BASIC sound command — the 
two bytes of data are the low byte and high 
byte of the parameter respectively. 

With the basic SOUND command (see page 
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233), a positive number in the second para- 
meter position is the number of the envelope 
the sound is to use. And a negative number is 
a volume as no envelope is to be used. Here 
the 241, 255 in DATA are the equivalent of 
-15. 



TO DIE. TO SLEEP 



The routine that deals with the death of Willie 
starts in Line 810. The first three lines POKE 
string data into a data table to print up 'Game 
Over' if it is required. The CHR$17s are the 
equivalent of a COLOUR command, so the first 
four CHR$ commands define a foreground 
and a background colour. The CHR$31 moves 
the cursor to the X and Y positions following. 
So three lines on the screen — 20, 21 and 22 — 
have spaces, the words 'Game Over' and more 
spaces are printed up starting at X position 5. 
The spaces are printed to give a background 
panel around the words. 

The assembly language program begins 
with LDA&7B in Line 830. This loads the 
accumulator with Willie's Y coordinate which 
is stored in &7B. So far, if Willie has hit upon 
a hazard that has killed him, he is precipitated 
down to the bottom of the screen. If Y is zero 
he has reached it and he is well and truly dead. 

So the BEQ instruction in Line 890 bran- 
ches the processor on into the main death 
routine, if Willie's Y coordinate is zero. If it is 
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not, there is still a chance that Willie might be 
alive, so the processor does not make the 
branch and returns. 

If Willie is definitely dead, the first thing to 
be done is to decrement his number of lives. 
The DEC&89 in Line 920 does that. The'con- 
trol byte in &7D is then loaded up into the 
accumulator and ORed with &90. This sets bit 
seven which is the flag that orders up the next 
screen. The result is stored back in &7D. 

A is loaded with 1 5, X is loaded with and 
the processor jumps to the subroutine at 
&FFF4. This is equivalent to a *FX1 5,0 which 
clears all sounds, 

The number of lives in &89 is then loaded 
up into the accumulator. If Willie has no lives 
left, the BEQ instruction branches the pro- 
cessor over the RTS, into the 'Game Over' 
routine. But if Willie is still blessed with 
another incarnation or two, the processor 
returns to rewind his modal coil. 



THE GAME IS OVER 



The number is loaded into the X register 
which is going to be used as an index to count 
along a data table. 

Then the appropriate byte of the data table 
constructed in Lines 810 to 830 is loaded up 
into A and output to the screen by the 
subroutine at &FFEE. X is incremented and 
compared with &49 to see if the end of the 
table has been reached. 



If it hasn't, the processor branches back to 
pick up and output the next byte. If it has, the 
processor proceeds, hits the RTS in Line 1 100 
and returns. 



SSDI 



The 


following routine 


puts Willie in his 


grave 






ORG 


20560 


PB LDA #5 


DIE 


LDA #136 


PAA LDX # 65535 




LDX #140 


LEAX -1,X 




JSR SOUND 


BNEPAA 




LDA #131 


DECA 




LDX #213 


BNE PB 




JSR SOUND 


JSR CLS 


Dl 


LDX 18249 


LDA $FF22 




LDU #1536 


ANDA #15 




JSR CHARPR 


STA SFF22 




LEAX 254,X 


STA $FFC2 




STX 18249 


STA $FFC4 




LDU #17774 


STA $FFC6 




JSR CHARPR 


LDY #$50B 




LEAX 254,X 


LDX #$701 




JSR CHARPR 


STX,Y+ + 




LDA #30 


LDX#$D05 




LDX #113 


STX.Y+ + 




JSR SOUND 


LDX # $200F 




LDX 18249 


STX,Y+ + 




CMPX #6912 


LDX #$1605 




BLODI 


STX,Y+ + 




DEC 18239 
LBNE NLV ^-s. 


LDX #$1221 
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STX.Y+ + 


LDA #100 


LDA #200 


STADLL + 1 


LDX #255 


LBRAGBIN 


JSR SOUND 


SOUND EQU $5133 


LDA #200 


CHARPR EQU $4BCA 


LDX #200 


DLL EQU $51 ED 


JSR SOUND 


GBIN EQU S4BE2 


LDA #255 


NLV EQU $4BF7 


LDX #255 


CLS EQU $4ACC 


JSR SOUND 





THE KNELL 



The routine starts by sounding a two-note 
death knell for dear departed Willie. But the 
actual sounding is done by the SOUND routine 
which will be given in the next part of 
Cliffhanger. 

Before you attempt to test this program, 
don't forget to put an RTS at the start address 
of SOUND, $5133. Otherwise, the program 
will crash. 

SOUND requires two parameters to be fed 
into it to specify the pitch and duration of the 
sound. These are taken into the routine by the 
A and X registers, It is plain to see that the 
two notes produced by the same SOUND 
routine are going to be very different in this 
case as the two parameters are so different 
each time it's called. 




GOING DOWN 



As Willie drops down the screen into the 
inferno below, the bits left behind have to be 
overprinted with sky. 

So X is loaded with the contents of 18,249, 
which point to Willie's screen position. And 
U is loaded with 1536, the address of the sky 
at the top of the screen. 

The CHARPR routine is then called to print 
a block of sky over Willie's top half. 

X is loaded with X plus 254. And this is 
stored back in 1 8,249 to move Willie's pointer 
down the screen one character square. 

U is then loaded with 17,774, which is the 
start address of the data for the picture of 
Willie with his legs together. So when the 
processor jumps to the CHARPR subroutine, it 
prints up the top half of Willie one character 
square down the screen from where it was 
printed last time. 

X is incremented by 254 and CHARPR is 
called again to print Willie's bottom half. 

While Willie is going down the screen he 
lets out a death cry. This is done by loading 
up A and X again and jumping to SOUND. 

When Willie dies he descends all the way to 
the bottom of the screen. So you need to 
check whether he has got there. This is done 
by loading X with the contents of 18,249 and 
comparing them with 6912, the start of the 
28th line of the screen. 
, If Willie's screen position in X is lower 
than 6912, the BLO instruction sends the 
processor round to start the Dl loop again and 
moves Willie down one more character square. 

But if Willie's screen position is not lower 
than 6912, he has reached the bottom of the 
screen and the processor continues. 

In that case, the contents of 18,239 — which 
stores the number of lives Willie has left — is 
decremented and the LBNE NLV sends the 
processor back to the routine that gives Willie 
a new life and sets the last screen up again. A 
long branch is used here because the NLV 
routine was given several parts of Cliffhanger 
ago and is certainly more than 128 bytes away. 



GAME OVER 



But if the contents of 18,239 have been 
decremented to zero, Willie has no more lives 
left, the game is over and the processor 
continues. 

■ A is loaded with 5 and X is loaded with 
V.\jA\65,535. X is then decremented and the pro- 
i&2 cessor 1°°P S k ac k t0 decrement it again, unless 
ft has counted down to zero. If it has, A is 
decremented and the processor jumps back to 
load X up again with 65,535. The process is 
then repeated until A has counted down to 
zero as well. 



The processor goes around this loop 
5 x 65,535 times. This gives the player pause 
for thought over Willie's final, tragic demise. 

When the processor finally drops out of the 
delay loop, it jumps off to the CLS subroutine. 
This clears the screen. 

Next the contents of $FF22 are loaded up 
and ANDed with 15. The result is stored in 
$FF22, $FFC2, $FFC4 and SFFC6. 

This tells the VDG (video display gen- 
erator) and SAM (synchronous address mul- 
tiplexer) chips that you are going back into 
text mode and is the reverse of what you did 
when you changed into graphics mode earlier 
in the program (see page 1042). 

Y is loaded with $50B — this is the position 
you are going to print 'GAME OVER!' in. 

X is loaded with $701, the screen codes for 
the letters GA. These are stored on the screen 
in the position pointed to by Y, and Y is 
incremented twice. 

Then X is loaded with the screen codes for 
ME and those are stored in the new position 
pointed to by Y, two places to the right of the 
start of GA. Then D 0, VE and R! are loaded 
up and printed in the subsequent places 
across the screen. 

Next the 'game over' sounds are played. It 
is three notes. So A and X are loaded up and 
the SOUND routine is called three times. 

Then the number 100 is loaded into the 
accumulator and stored in memory location 
$51EE. This sets the delay back to its starting 
value, so next time the game is played it will 
start at the same initial speed. 

Finally, the processor makes a long branch 
back to the beginning of the program at G B I N . 
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MUSDC WHIU 





Most of the best games you can buy have 
impressive sound effects or music for added 
entertainment. Here is a program to let your 
micro soothe you with music while you type 
in a program or develop one of your own. 

Most games programs have a musical 
introduction or a short refrain to mark certain 
events, such as when you score points or lose a 
life in a game. If, however, you have played 
some of the popular games that have tunes on 
the Commodore 64 or the Acorn computers 
the most impressive effect is that the tunes are 
played not just momentarily, but throughout 
the game. The reason these micros can run a 
program and play music at the same time is 
that they have a sound-generating circuit that 
works independently of the central processor, 
unlike other micros, such as the Spectrum, 
Dragon and Tandy, which use the central 
processor to process sound. 

There are a few games available for the 
Spectrum which manage to play music const- 
antly throughout the program. But this is 
done by very careful timing so that the two 
things appear to happen simultaneously. This 
is not practical in a general-purpose program 
like those given here, so only Commodore and 
Acorn versions are listed. 

The programs work by interrupts, so at 
regular intervals a certain event is detected, 
causing the program to branch to a routine to 
play the tune. But in case you want a 
moment's quiet — for example, when the tele- 
phone rings — Acorn users can disable the 
interrupts by a single keypress, then turn 
them on again by pressing another key. On 
the Commodore 64 where it is not possible to 
do this, it is a simple matter to turn down the 
volume control on the TV set. 

Enter the program now, but notice that it 
contains a section of machine code (given in 
DATA statements), so save a copy to disk or 
tape before you RUN. 



EE 



1 000 S = 0:FOR N = 491 52 TO 49407: 
READA:POKEN,A:S = S + A:NEXTN 

1050 IF So 5666 THEN 1400 

1 1 00 S =0: FOR N = 24576 TO 24631: 
READ A:P0KE N,A:S = S + A:NEXT N 

1150 IF So 6270 THEN 1500 



1200 S = 0:FOR N = 28672 TO 28778: 

READ A:P0KE N,A:S = S + A:NEXT N 
1250 IF So 12659 THEN 1600 
1300 PRINT "□":SYS24576:END 
1400 PRINT "CHECK LINES 2000- 

2060":END 
1500 PRINT "CHECK LINES 2100- 

3020":END 
1800 PRINT "CHECK LINES 4000- 

4050":END 
2000 DATA 37,17,37,3,37,17,27,3,47,16,7,3, 

37,17,7,3,63,19,62,8 
2010 DATA 37,17,7,3,63,19,17,3,37,17,7,3 
2020 DATA 63,19,7,3,37,17,17,3,47,16,7,3, 

110,15,72,8 
2030 DATA 63,19,37,3,63,19,27,3,42,18,7,3 
2040 DATA 63,19,7,3,154,21,62,8 
2050 DATA 63,19,7,3,154,21,17,3,63,19,7,3 
2060 DATA 154,21,7,3,63,19,17,3,42,18,7,3, 

37 17 72 8 
2100 DATA 37,17,37,3,37,17,27,3,47,16,7,3, 

37,17,7,3,63,19,62,8 
2110 DATA 37,17,7,3,63,19,17,3,37,17,7,3 
21 20 DATA 63,1 9,7,3,37,1 7,1 7,3,1 14,1 1 ,7,3, 

63,19,72,8 
2130 DATA 216,12,7,3,107,14,7,3,70,15,7,3, 

37,17,7,3 
2140 DATA 154,21,27,3,63,19,7,3,63,19,7,3, 

37,17,42,8 
2150 DATA 47,16,7,3,37,17,7,3,63,19,37,3, 

154,21,37,3,227,22,72,8 
2160 DATA 0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1 
2170 DATA 0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1 
2180 DATA 0,0,1,1,0,0,1,1,0,0,1,1,0,0,1,1 
2190 DATA 0,0,1,1,0,0,1,1,0,0,1,1 
3000 DATA 169,0,162,25,157,0,212,202,208, 

250,169,15,141,24,212,169,1,141 
3010 DATA 1,195,169,0,141,2,195,141,4,195, 

169,32,141,3,195,169,246,141 
3020 DATA 5,1 95,1 69,64,1 41,5,21 2,1 20,1 69, 

0,141,20,3,169,112,141,21,3,88,96 
4000 DATA 174,4,195,173,13,220,41,1,240,3, 

32,16,112,76,49,234,173,2,195 
4010 DATA 240,17,206,0,195,208,11,169,0, 

141,2,195,173,3,195,141,4,212 
4020 DATA 96,206,1,195,240,13,169,1,205,1, 

195,208,5,169,0,141,6,212,96 
4030 DATA 189,0,192,141,0,212,232,189,0, 

192,141,1,212,232,189,0,192,141 
4040 DATA 0,195,232,189,0,192,141,1,195, 

232,1 42,4,1 95,1 73,5,1 95,1 41 ,6,21 2 



1050 DATA 172,3,195,200,140,4,212,169,1, 
141,2,195,96,0 

When you RUN the BASIC program, it sums 
the numbers in the DATA statements, and if 
you have made an error a prompt will direct 
you to the lines you should check. 

The data is read and checked as three 
blocks, so it is important that you enter it as 
listed, otherwise the check fails. The tune is 
planned so that it repeats in a loop without 
overlaps or gaps. This requires careful timing 
of the notes, in relation to the interrupt cycle. 
Furthermore, the data for the tune is encoded, 
so it no longer looks like the usual values you 
would enter to play a tune. All this means that 
there is little scope for you to change the tune, 
unless you are familiar with the techniques of 
programming by interrupts. 

Once the program has been RUN, the 
machine code is called automatically to start 
the music. You can then NEW to get rid of the 
BASIC and the tu ne will be u naffected. To 
stop the tune, press |RUN/ST0P| and |REST0RE| , 
and to restart it type SYS 24576. 



10M% = &900 

11 !M%=&FFF80002 

12M%!4=&00040000 

13M%!8 = 

20X%=-1 

30 REPEAT 

40 READ W% 

50X%=X%+1 

60?(X% + M% + 10) = W% 

70 UNTIL W%= 255 

80FORPA% = 0TO3STEP3 

90P%=M%+X%+11 

100[OPTPA% 

140l%INCM%+9 

150LDAM%+9 

160 CMP #10 

170 BNE E% 

180LDA#0 

190STAM%+9 

200LDYM%+8 

210LDAM%+10,Y 

220STAM% + 4 

230 LDA #7 

240 LDX # M% MOD 256 



MWWW'Ji 



If you enjoy the soothing strains of 
background music while you work, 
you will like this simple, interrupt - 
driven machine-code music program 
which won't exhaust the memory 



SIMULTANEOUS PLAYING 



AND PROCESSING 



MACHINE CODE PROGRAMMING 
USING THE INTERRUPTS 



THE SOUND CIRCUITRY 




250 LDY # U% DIV 256 

260 JSR &FFF1 

270INCM%+8 

280LDYM%+8 

290LDAM% + 10,Y 

300 CMP #255 

310BNEE% 

320 LOA #0 

330STAM% + 8 

340 .E% RTS 

350] 

360 NEXT PA% 

370 CALL L% 

380 'KEY 8 ?&220 = L% MOD 256: 

?&221=L%DIV256:*FX14,4IM 
390 "KEY 9 *FX13,4IM 
400 DATA 165,161,165,161,165,145,157,149, 

137,69,89,101,117,137 
410 DATA 145,69,85,117,133,145,149,69,89, 

117,165,161 
420 DATA 165;161,165,145,157,149,137,69, 

89,101,117,137 
430 DATA 145,69,85,117,149,145,137,69,89 
440 DATA 145,149,157,165,81,101,129,169, 

165,157,81,97,121,165,157 
450 DATA 149,69,89,117,157,149,145,96,117, 

117,165,117 
460 DATA 165,165,213,161,165,161,165 
470 DATA 161,165,161,165,145,157,149,137, 

69,89,101,117,137 
480 DATA 145,69,85,117,133,145,149,69,89, 

117,165,161 
490 DATA 165,161,165,145,157,149,137,69, 

89,101,117,137 
500 DATA 145,69,85,117,149,145,137,69,89,255 

When you RUN the program, it gives a listing 
of the assembly code. If you don't wish the 
listing to appear, change the two 3s in Line 80 
to 2s. To start the tune, press (§], then you can 
NEW and use the micro in the usual way, with 
the tune playing. You can stop the tune by 
pressing either |f9] or IBREAKI — in either case, 
U] restarts it. 

Lines 380 and 390 set the key definitions to 
start and stop the tune. If you wish to set these 
functions to any of the other user-defined 
keys, then merely substitute the numbers at 
these lines. After you've saved the listing, you 
might wish to play about with the data to see 
the effect, but notice that timing is crucial. 
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CAPI 
THE ADVENTUIRI 



These program lines are part two of Escape, 
following on directly from part one. Don't 
forget to SAVE this ready for part three. 



20 PRINT "LOADING TEXT AND DECODER": 
LOAD ""CODE 

30LETS$="anannnnn ,, :LET 

Z$ = "":FORZ = 1T0 32:LET 

Z$ = Z$ + S$:NEXTZ 
40 LOAD "" DATA A(): LOAD "" DATA Z() 
180 LET PP = 0: LET BB = 1: LET V = 10: LET 

DW = 1: LET D$ = "": LET M$ = "": LET 

J$ = "": LET U$ = "": LET X = 0: LET Q 

= 0: LET JK = 0: LET QQ = 0: LET OP = 
190 LET SS = 1: LETC = 0: LETM = 0: LET 

XX = 0: LET J = INT (RND'1 8) + 1 : LET 

G = INT (RND*18) + 1: LETTT = 1: LET 

11 = 1: LETVV = 0: LET F = 0: LET 

KK = INT(RND*21) + 1: LETNN = 70: 

GOSUB 4500: DIM M${17): LET M$ = S$ 
820 IF L = 10 AND N$ = "W" AND OP = 1 

THEN GOSUB 3810: GOTO 270 
830 IF L = 10 AND N$ = "W" AND OP>0 

THEN LET NN = 60: GOSUB 3960: PAUSE 

200: GOTO 270 
840 IF L = 3 AND N$ = ' i D" AND D = 1 THEN 

GOSUB 1760 
850 IF L = 1 AND N$ = "W" THEN LET 

OP = 1: GOSUB 3810: GOTO 270 
860 IF N$ = "N" AND N = 1 THEN LET 

L = L-3: GOTO 270 
870 IF N$ = "S"ANDS = 1 THEN LET 

L = L + 3: GOTO 270 
880 IF N$ = "E" AND E = 1 THEN LET 

L = L + 1: GOTO 270 
890 IF N$ = "W" AND W = 1 THEN LET 

L=L-1: GOTO 270 
900 IF N$ = "U" AND U = 1 THEN LET 

L=L— 6: GOTO 270 
910 IF N$ = "D" AND D = 1 THEN LET 

L=L + 6: GOTO 270 
920 IF L = 16 AND N$ = "D" AND 

K(7)<>-1 THEN LET NN = 29: GOSUB 

3960 
930 PRINT "YOU CAN'T DO THAT HERE-'" 

"THINK AGAIN!": PAUSE 100: GOTO 270 
940 LET N = 0: LET S = 0: LET E = 0: LET 

W = 1: LET U = 0: LETD=0 
950 CLS: LET NN = 2: GOSUB 3960 
960 IF BB = 1 THEN LET NN = 3: GOSUB 



3960: PRINT ' FLASH 1;" PRESS ANY KEY 

TO BEGIN": PAUSE 0: LET BB = 
970 RETURN 
980 CLS : LET NN = 4: GOSUB 3960: LET 

N = 0: LETS = 0: LET E = 0: LETW = 1: 

LETU = 0: LETD = 0: RETURN 
990 IF INT (RND*18) = 6 THEN GOSUB 2550 
1000 IF INT (RND*18> = 12 AND DW = 1 

THEN GOSUB 2740: RETURN 
1010 CLS : LET NN = 5: GOSUB 3960: LET 

N = 1 : LET S = 0: LET E = 0: LET W = 

LETU = 0: LET D = 0: RETURN 
1020 IF INT(RND'18) = 10AND DW = 1 

THEN GOSUB 2740: RETURN 
1030 IF INT (RND*18) = 1 THEN CLS: 

GOSUB 2550 
1040 CLS : LET NN = 6: GOSUB 3960: LET 

N = 0: LET S = 1 : LET E = 1 LET W = 1: 

LET U = 1 : LET D = 1: IF OP = 1 THEN LET 

NN = 62: GOSUB 3960 
1050 RETURN 
1060 IF INT (RND*18) = 17 AND DW = 1 

THEN GOSUB 2740: RETURN 
1070 CLS : LET NN = 7: GOSUB 3960: LET 

N = 0: LET S = 1 : LET £ = 0: LETW = 1: 

LET U = 1: LET D = 0: RETURN 
1080 CLS ; LET NN = 8: GOSUB 3960: LET 

N = 0: LET S = 1: LET E = 1 : LETW=1: 

LET F = 0: LETU = 0: LET D = 
1090 IF E$(L,1)oCHRS 32 THEN LET 

NN = 9: GOSUB 3960: PAUSE 50 
1100 IF E$(L,1)oCHR$ 32 AND J<8 

THEN LET NN = 10: GOSUB 3960 
1110IFE$(L,1)oCHR$32ANDJ>7 

THEN LET NN = 11: GOSUB 3960: LET 

F = 1 : LET QQ = QQ + 1 : GOTO 1420 
1120 RETURN 
1130 IF INT (RND*18) = 16 THEN GOSUB 

2550 
1140 CLS : LET NN = 28: GOSUB 3960: LET 

N = 1: LETS = 0: LET E = 1: LETW = 0: 

LETU = 0: LET D = 0: RETURN 
1 1 50 LET NN = 1 3: GOSUB 3960: LET N = 1 : 

LET S = 0: LET E = 1 : LET W = 0: LET 

U = 0: LET D = 0: RETURN 
1160 IF INT (RND*18) = 14 AND DW = 1 

THEN GOSUB 2740: RETURN 
1170 CLS: LET NN = 14: GOSUB 3960: 

PAUSE 150: LET NN = 15: GOSUB 3960: 

LET N = 0: LET S = 1 : LET E = 1 : LET 

W = 0: LET U = 0: LET D = 0: RETURN 



1180 IF INT (RND*18) = 17 THEN GOSUB 

2550 
1190 LET N = 1: LETS = 0: LET E = 1: LET 

W = 1: LET F = 0: LET U = 0: LET D = 
1200 IF G< =4 THEN LET E$(L} = "" 
1210 CLS : LET NN = 16: GOSUB 3960 
1220 IF E$(L,1)oCHR$ 32 THEN PRINT 

"'HE STIRS": LET F = 1 
1230 RETURN 

1240 IF INT (RND*18) = 5 THEN GOSUB 2550 
1250 CLS 
1260 LET N = 1 : LET S = 0: LET E = 0: LET 
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Continue entering Escape, INPUTS 
new adventure game. LOAD in the 
existing program and add these 
lines. The program cannot be RUN 
until it is completed 



ESCAPE: PART TWO 



SPECTRUM ADDITIONS 



COMMODORE ADDITIONS 



ACORN ADDITIONS 



DRAGONS AND TANDY ADDITIONS 



W = 1:LETU = 0: LETD=0 
1270 LET NN = 17: GOSUB 3960 
1280 RETURN 
1 290 LET N = 1 : LET S = 0: LET W = 1 : LET 

E = 1: LETF = 0:LETU = 0: LETD = 
1300 LET NN = 18:G0SUB 3960 
1310IFK(19) = -1 THEN LET F = 0: LET 

NN = 19: GOSUB 3960 
1320 RETURN 
1330 IF INT (RND*18) = 1 AND DW=1 THEN 

GOSUB 2740: RETURN 
1340 CLS 



1350 LET N=0: LET S = 1 : LET E = 1: LET 

W=0:LETU = 0:LETD = 
1360 LET NN = 20: GOSUB 3960 
1370 RETURN 
1380 CLS 
1390 LET N = 0: LET S = 1 : LET E = 1 : LET 

W = 1: LET U = 0: LET D = 
1400 LET NN = 21: GOSUB 3960 
1410 IF E$(L,1)oCHR$ 32 THEN LET 

NN = 22: GOSUB 3960: LET F = 1: LET 

QQ=QQ + 1 
1420 IF QQ>4 THEN PRINT "SHE 



SCREAMS.": PAUSE 100: PRINT "TWO 
GUARDS APPEAR.": PAUSE 100: PRINT 
"YOU SURRENDER.": PAUSE 100: STOP 

1430 RETURN 

1 440 LET N = 1 : LET S = 0: LET E = 0: LET 
W = 1: LET F=0: LET U = 0: LET D = 

1450 LET NN = 23: GOSUB 3960 

1460 LET NN = 24: GOSUB 3960: LET F = 1 

1470 IF INT (RND-18)<3 THEN LET F = 0: 
LET NN = 63: GOSUB 3960 

1480 RETURN 

1490 IF INT (RND*18) = 3 AND DW = 1 THEN 
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GOSUB 2740: RETURN 
1500 CLS 
1510 LET N = 0: LET S = 1: LET E = 0: LET 

W = 1:LETU = 0:LETD = 
1520 LET NN = 25: GOSUB 3960 
1530 IF K(17)= -1 THEN LET NN = 26: 

GOSUB 3960: LET D = 1 
1540 RETURN 
1550 CLS 
1560 LET N = 1: LETS=0: LET E = 1: LET 

W = 0:LETU = 0:LETD = 
1570 LET NN = 27: GOSUB 3960 
1580 RETURN 
1590 CLS 
1600 LET N=0: LET S = 1 : LET E = 0: LET 

W=0:LETU = 1;LETD = 
1610 LET NN = 12: GOSUB 3960 
T620 IF K{7)= —1 THEN LET NN = 64: 

GOSUB 3960: LET D = 1 
1630 RETURN 



1640 IF INT (RND*18) = 1 THEN GOSUB 2550 
1650 CLS: LET N = 1 : LET S = 1: LET E = 1: 

LETW = 0:LETU = 0:LETD = 1 
1660 LET NN = 30: GOSUB 3960 
1670 RETURN 
1680 IF INT (RND*18> = 1 ANDDW = 1 THEN 

GOSUB 2740: RETURN 
1690 CLS : LET N = 1: LET S = 1 : LET E=1: 

LET W=1: LET F = 
1700 LET NN' = 31: GOSUB 3960 
1710IFE$(L,1)oCHR$32THEN PRINT 

"THERE IS AD ";E$(L);"D PASSING.": 

LET F = 1 
1720 RETURN 
1730 CLS: LET N = 1: LET S = 1: LET E = 0: 

LETW=1: LET U = 0: LET D = 1 
1740 LET NN = 32: GOSUB 3960 
1750 RETURN 
4100 DATA 1330,1380,1490,1640,1680,1730, 

1550,1240,990,1020 



4110 DATA 1080,1060,1150,1290,1440,1590, 
1160,940,1130,1180,980,1890 




780 IF I <1 THENPRINTLG$"QDONT 

KNOW HOW TO|J"I$:GOTO 610 
790 IF E$(L) < > ""ANDI < > 9ANDI <> 10 

ANDIo5ANDI<>12ANDI< >8AND 

F = 1 THEN 810 
800 GOTO 820 
810 PRINT LG$' ; l]HE||"E$(L)"||WON , T 

LET YOU.":GOSUB20000:GOTO 340 
820IFI = 1THENN$ = LEFT$(V$,1) 
830 IF I = 2 THEN GOSUB 2190:GOTO 340 
840 IF I = 3 THEN GOSUB 3940:GOTO 340 
850 IF I = 4 AND L = 3 THEN GOSUB 1970 
860 IF I = 5 THEN GOSUB 3160:GOTO 340 
870 IF I = 6 THEN GOSUB 4060:GOTO 340 
880 IF I = 7 THEN GOSUB 4110:GOTO 340 
890 IF I = 8 THEN GOSUB 4250:GOTO 340 
900 IF I = 9 THEN GOSUB 2760:GOTO 340 
910 IF I = 10 THEN GOSUB 2330:GOTO 340 
920 IF 1 = 11 THEN GOSUB 421 0:GOTO 340 
930 IF 1 = 12 THEN GOSUB 4440:GOTO 340 
940 IF L = 10 AND N$ = "W" AND OP = 1 

THEN GOSUB 4590:GOTO 340 
950 IFL=10ANDN$ = "W"AND PP>0THEN 

TX=60;GOSUB9900:GOSUB2000:GOTO 

340 
960 IF L = 3 AND N$ = "D" ANDD = 1 THEN 

GOSUB 1970 
970IF L = 10 AND N$="W" THEN 

OP = 1:GOSUB4590:GOTO340 
980 IF N$ = "N" AND N = 1 THEN 

L = L-3:GOTO340 
990 IF N$ = iS S" AND S = 1 THEN 

L=L + 3:GOTO340 
1000IFN$ = "E"ANDE = 1 THEN 

L=L + 1:GOTO 340 
1010 IF N$ = "W" AND W = 1 THEN 

L=L-1:GOTO 340 
1020IFN$ = "U"ANDU = 1 THEN 

L=L-6:GOTO340 
1030 IF N$ = "D" AND D = 1 THEN 

L = L+6:GOTO340 
1040 IF L=16 AND N$ = "D"AND 

K(7)<> -1 THENTX = 29: GOSUB 

9900:GOSUB 20000:GOTO340 
1050 PRINTLG$"nOU CAN'T DO THAT - 

THINK AGAIN!":GOSUB 20000:GOTO 340 
1060 N = 0:S = 0:E = 0:W=1:U = 0:D = 
1070 PRINT "□M":TX = 2:GOSUB 9900 
1079IFBB<>1 THEN RETURN 
1080 PRINT:TX = 3:GQSUB 9900:PRINT 

LG$TAB(13)"nRESS ANY KEY" 
1090 PRINT TAB(8)"TO BEGIN YOUR 

ADVENTURE" 
1100 GET D$:IFD$ = "" THEN 1100 
1105BB = 0:RETURN 
1140 PRINT"n n :TX = 4:G0SUB 9900: 

N = 0:S = 0:E = 0:W = 1:U = 0:D = 0: 
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RETURN 
1150 IF INT(RND(1)*18)H-1 =6 THEN 

GOSUB 2860 
1160 IF INT(RND(1)"18) + 1 =12 AND 

DW = 1 THEN 3100 
1170 PRINT "□":PRINT 
1180TX = 5:GOSUB9900:N = 1:S = 0:E = 0: 

W = 0:U = 0:D = 0:RETURN 
11901FINT(RND(1)*18) + 1=10AND 

DW = 1 THEN 3100 
1200IFINT(RND(1)*18) + 1=1 THEN PRINT 

"□":GOSUB2860 
1210 PRINT "□":PRINT 
1220TX = 6:GOSUB9900:N = 0:S=1:E = 1: 

W = 1:U = 1:D = 1:IFOP = 1 THEN 

TX=62:GOSUB9900 
1230 RETURN 
1 240 IF INT(RND{1 )*1 8) + 1 = 1 7 AND 

DW = 1 THEN 3100 
1250 PRINT "□":PRINT:TX = 7:GOSUB 

9900:N = 0:S = 1;E = 0:W = 1:U = 1: 

D = 0:RETURN 
1260 PRINT "□":PRINT:TX = 8:GOSUB 

9900:N = 0:S = 1:E = 1:W = 1:F = 0:U = 0: 

D = 
1270 IF E$(L)<>"" THEN TX = 9:GOSUB 

9900:GOSUB 20000 
1280 IF E$(L)<>"" AND J<8THEN 

TX=10:GOSUB9900 
1290 IF E$(L) < >"" AND J >7 THEN 

TX=11:GOSUB 9900:F = 1:QQ = QQ+1: 

GOTO 1600 
1300 RETURN 
1310 IF INT(RND(1)'18) + 1=16 THEN 

GOSUB 2860 
1320 PRINT "□":TX = 28:GOSUB 9900: 

N = 1:S = 0:E = 1:W = 0:U = 0:D = 0: 

RETURN 
1330TX = 13:GOSU8 9900:N = 1:S = 0:E = 1: 

W=0:U = 0:D = 0:RETURN 
1340 IF INT(RND(1)*18) + 1 = 14 AND 

DW=1 THEN 3100 
1350 PRINT "□":PRINT:TX = H:GOSUB 

9900 
1 355 GOSUB20000::TX = 1 5:GOSUB9900: 

N = 0:S = 1:E = 1:W = 0:U = 0:D = 0: 

RETURN 
1360 IF INT(RND(1)*18) + 1=17 THEN 

GOSUB 2860 
1370 N = 1:S = 0;E = 1:W = 1:F = 0:U = 0: 

D = 
1380 IF G< =4 THEN E$(L) = "" 
1390 PRINT"CT:PRINT:TX = 16:GOSUB 

9900 
1400 IF E$(L) < > "" THEN PRINT:PRINT 

"□ESTIRS.":F = 1 
1410 RETURN 
1420IFINT(RND(1)*18) + 1=5THEN 

GOSUB 2860 
1430 PRINT "□" 
1440 N = 1:S = 0:E = 0:W = 1:U = 0:D = 



1450 PRINT: TX = 17:GOSUBi 

1460 RETURN 

1470 N = 1:S = 0:W = 1:E = 1:F = 0:U=0: 

D = 
1480 PRINT:TX = 18:GOSUB 9900 
1490 IF K(19)= -1 THEN F = 0:TX = 19: 

GOSUB 9900 
1500 RETURN 
1510IFINT(RND(1}'18) + 1=1 AND 

DW = 1 THEN 3100 
1520 PRINT "□" 

1530 N=0:S = 1:E = 1:W = 0:U=0:D = 
1540 PRINT:TX = 20:GOSUB 9900 
1550 RETURN 
1560 PRINT "□" 

1570 N = 0:S = 1:E = 1:W=1:U = 0:D = 
1580 PRINT:TX = 21 :GOSUB 9900 
1590 IF E$(L)<>"" THEN TX = 22:GOSUB 

9900:F = 1:QQ = QQ + 1 
1600 IF QQ> 4 THEN PRINT "fflHE 

SCREAMS!":GOSUB 20000 
1610 IF QQ>4 THEN PRINT'OWO 

GUARDS APPEAR.":GOSUB 20000 
1620 IF QQ>4 THEN PRINT"[10U 

SURRENDER. ":GOSUB 20000:GOTO 

10000 
1630 RETURN 
1640 N = 1:S = 0:E = 0:W = 1:F = 0:U = 0: 

D = 
1650 TX = 23: GOSUB 9900 
1660TX = 24:GOSUB9900:F = 1 



540 IF l$ = t$ AND t = OR l$ = i$ AND 

i = THEN PROCLGOTO 270 
550I = INSTR(I$,"D") 
570V$ = LEFT$(I$,I-1) 
580T$ = MID$(I$,1 + 1) 
590IFV$ = "go"THENV$=T$ 
600asc$ = "":FORc = 1TOLEN(T$}:asc = ASC 

(MID$(T$,c,1)) 
610 IFasc<91 ANDasc< >32 THEN 

asc = asc + 32 
620 asc$ = asc$ + CHR$(asc) 
630NEXT:T$ = ascS 
6401=0 

650 FOR H = 1 TO 32 
660 IFINSTR(R$(H),V$) = 1THENI = R(H) 
670 NEXT 
680 IF l<1 THEN PRINT"! don't know how 

toD"l$:GOTO530 
690 IF E$(L) <> "" AND I <> 9 AND 

l<>10ANDI<>5ANDIo12AND 

1<>8ANDF = 1THEN 

PRINT"TheD"E${L)"nwon't let you": 

D = INKEY(250):GOTO270 
700 IF 1 = 1 THEN N$ = LEFT$(V$,1) 
710 IF l = 2THEN PROCC:GOTO 270 
720 IF I = 3 THEN PROCJ:GOTO 270 
730 IF I =4 AND L = 3THEN PROCA 
740 IF I = 5 THEN PROCH:GOTO 270 



750 IF 1 = 6 THEN PROCK:GOTO 270 
760 IF 1 = 7 THEN PROCLGOTO 270 
770IFI = 8THENPROCN:GOTO270 
780IFI = 9THENPROCE:GOTO270 
790 IF I -10 THEN PROCD:GOTO 270 
800 IF 1 = 11 THEN PROCM:GOTO 270 
810 IF 1 = 12 THEN PROCO:GOTO 270 
820 IFL = 10ANDN$ = 'VANDOP = 1THEN 

PROCP:GOTO270 
830 IFL = 10ANDN$ = "w"AND p>0THEN 

PRINTFNW(60):D = INKEY{400):GOTO270 
840 IFL = 3ANDN$ = "d"ANDD = 1 PROCA 
850 IFL = 10ANDN$ = "w"THENOP = 1: 

PROCP:GOTO270 
860 IF N$ = "n" AND N = 1 THEN 

L = L 3:GOTO 270 
870 IF N$ = "s" AND S = 1 THEN 

L = L + 3:GOTO270 
880IFN$ = "e"ANDE = 1 THEN 

L = L + 1:GOTO270 
890IFN$ = "w"ANDW=1THEN 

L=L-1:GOTO270 
900 IF N$="u" AND U = 1 THEN 

L=L-6:GOTO270 
910IFN$ = "d"ANDD = 1THEN 

L=L+6:GOTO270 
920 IFL = 16ANDN$ = "d"ANDK(7}<> -1 

THENPRINTFNW(29) 
930 PRINT'You can't do that here think 

again!":VDU7:D = INKEY(250):GOTO270 
940 N = 0:S = 0:E = 0:W = 1:U = 0:D = 
950CLS:PRINT"FNW(2). 
960 IF b = 1 THEN PRINT'FNW(3)'CHR$(129) 

"PRESS ANY KEY TO BEGIN YOUR 

ADVENTURE":D$ = GET$:b = 
970 RETURN 
980CLS:PRINT"FNW(4):N = 0:S = 0:E = 0: 

W=1:U = 0:D = 0:RETURN 
990IFRND(18) = 6THENPROCF 
1000 IF RND(18) = 12 AND dw = 1 THEN 

PROCG: RETURN 
1010CLS:PRINT'FNW(5):N = 1:S = 0:E = 0: 

W = 0:U = 0:D = 0:RETURN 
1020 IF RND(18) = 10 AND dw = 1 THEN 

PROCG:RETURN 
1030 IF RND(18) = 1 THEN CLS:PROCF 
1040CLS:PRINT"FNW(6):N = 0:S = 1:E = 1: 

W = 1:U = 1:D = 1:IFOP = 1THEN PRINT 

FNW(62) 
1050 RETURN 
1060 IFRND(18) = 17 AND dw = 1 THEN 

PROCG:RETURN 
1070CLS:PRINT"FNW(7):N = 0:S = 1:E = 0: 

W = 1:U = 1:D = 0:RETURN 
1 080 CLS:PRINT"FNW(8):N = 0:S = 1 :E = 1 : 

W = 1:F = 0:U = 0:D = 
1090 IF E$(L)o""THEN PRINTFNW{9): 

D = 1NKEY(100) 
1100 IF E$(L)<>"" AND J<8 THEN 

PRINTFNW(10} 
1110 IF E$(L)<>"" AND J>7 THEN 



1453 



so tgamisprogrammM 50 



PRINT FNW(11):F = 1:qq = qq + 1: 

GOTO1420 
1120 RETURN 

1130 IF RND(18) = 16 THEN PROCF 
1140 CLS:PRINT'FNW(28):N = 1:S = 0:E = 1: 

W = 0:U = 0:D = 0:RETURN 
1150 PRINT'FNW{13):N = 1:S = 0:E = 1: 

W = 0:U = 0:D = 0:RETURN 
1160 IFRND(18) = 14ANDdw = 1 THEN 

PROCG:RETURN 
1170CLS:PRINT"FNW(14):D = INKEY(300): 

PRINT'FNW(15):N = 0:S = 1:E = 1:W = 0: 

U = 0:D = 0:RETURN 
1180 IF RND(18) = 17 THEN PROCF 
1190N = 1:S = 0:E = 1:W=1:F=0: 

U = 0:D = 
1200 IF G< =4 THEN E$(L) = "" 
1210CLS:PRINT"FNW{16) 
1220 IF E$(L) < > ""THEN PRlNT'"He 

stirs":F = 1 
1230 RETURN 

1240 IF RND{18) = 5 THEN PROCF 
1250 CLS 

1260 N = 1:S = 0:E = 0:W = 1:U = 0:D = 
1270 PRINT"FNW(17) 
1280 RETURN 
1290N = 1:S=0:W = 1:E = 1:F=0: 

U = 0:D = 
1300 PRINT"FNW(18) 
1310 IFK(19)= — 1THEN F = 0: PRINT 

FNW(19) 
1320 RETURN 
1330 IF RND(18) = 1 AND dw = 1 THEN 

PROCG:RETURN 
1340 CLS 
1350N = 0:S = 1:E = 1:W = 0:U = 0: 

D = 
1360PRINT'FNW(20) 
1370 RETURN 
1380 CLS 
1390N = 0:S = 1:E = 1:W = 1:U = 0: 

D = 
1400PR1NT"FNW(21) 
1410 IF E$(L) < >"" THEN PRINTFNW(22): 

F = 1:qq = qq + 1 
1420 IFqq>4THENPRINT"She screams.":D = 

INKEY(100):PRINT"Two guards appear.": 

D = INKEY(1 00): PRINT'You surrender.": 

D = INKEY(100):END 
1430 RETURN 
1440 N = 1:S = 0:E = 0:W = 1:F = 0: 

U = 0:D = 
1450PR1NTFNW{23) 
1460 PRINTFNW(24):F = 1 
1470IFRND(18)<4THENF = 0: 

PRINTFNW(63) 
1480 RETURN 
1490 IF RND{18) = 3 AND dw = 1 THEN 

PROCG:RETURN 
1500 CLS 
1510N = 0:S = 1:E = 0:W = 1:U = 0:D = 




1520PRINT"FNW(25) 

1530 IF K{17)= -1 THEN PRINTFNW(26): 

D = 1 
1540 RETURN 
1550 CLS 

1560 N = 1:S = 0:E = 1:W = 0:U = 0:D = 
1570PRINT"FNW(27} 
1580 RETURN 
1590 CLS 

1600N = 0:S = 1;E = 0:W=0:U = 1:D = 
1610PRINT"FNW(12) 

1620 IFK(7)= - 1THENPRINTFNW (64):D = 1 
1630 RETURN 

1640 IF RND(18) = 1 THEN PROCF 
1650CLS:N = 1:S = 1:E = 1:W = 0:U = 0:D = 1 
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Tandy owners should take care to change 
Line 960. EXEC41 1 94 should be altered to 
EXEC36038. 

510IFK(C7) = LANDC7oLANDC7<>7 
THEN PRINT'THEn";Q$(C7);"DIS HERE" 
520 NEXT 

530 INPUT "WHAT N0W";l$ 
540 IF 1$ = T7$ AND T7 = OR I$ = I7$ AND 



17 = THEN GOSUB 3040:GOTO270 
550I = INSTR(I$,"D") 
560 IF I = THEN V$ = l$:G0T0 580 
570IF(I-1)<1THENV$ = ""ELSEV$ = 

LEFTS(IS,I — 1 ) 
580T$ = MID$(I$,I + 1) 
590 IF V$ = "G0" THEN V$ = T$ 
600 REM 
640 1 = 

650 FOR H = 1 TO 32 

660 IF INSTR(R$(H),V$) = 1 THEN l = R(H) 
670 NEXT 
680 IF l<1 THEN PRINT'I DON'T KNOW 

HOWTOD";I$:GOTO530 
690 IF E$(L) <> "" AND I <> 9 AND 

lo10ANDI<>5ANDIo12AND 

l<>8ANDF = 1 THEN 

PRINT"THED";E$(L); "DWON'T LET 

YOU":GOSUB5500:GOTO270 
700 IF 1 = 1 THEN N$ = LEFT$(V$,1 ) 
710 IF I = 2 THEN GOSUB 1970:GOTO270 
720 IF I = 3 THEN GOSUB 3300:GOTO270 
730 IF I = 4 AND L=3 THEN GOSUB 1760 
740 IF I = 5 THEN GOSUB 2800:GOTO270 
750 IF I = 6 THEN GOSUB 3390:GOTO270 
760 IF I = 7 THEN GOSUB 3440:GOTO270 
770 IF I = 8 THEN GOSUB 3560:GOTO270 
780 IF I = 9 THEN GOSUB 2450:GOTO270 
790 IF I = 10 THEN GOSUB 2090:GOTO270 
800 IF 1 = 11 THEN GOSUB 3520:GOTO270 
810 IF 1 = 12 THEN GOSUB 3730:GOTO270 
820 IF L = 10 AND N$ = "W" AND 0P = 1 

THEN GOSUB 3810:GOTO270 
830 IF L = 10 AND N$ = "W" AND P7>0 

THENWN = 60:GOSUB5100: 

GOSUB5500:GOTO270 
840 IF L = 3 AND N$ = "D" AND D = 1 THEN 

GOSUB 1760 
850 IF L = 10 AND N$ = "W" THEN 

OP = 1:GOSUB3810:GOTO270 
860IFN$ = "N"ANDN = 1 THEN 

L=L-3:GOTO270 
870 IF N$ = "S" AND S = 1 THEN 

L = L + 3:GOTO270 
880 IF N$ = "E" AND E = 1 THEN 

L = L+1:GOTO270 
890IFN$ = "W"ANDW=1THEN 

L=L-1:GOTO270 
900 IF N$ = "U" AND U = 1 THEN 

L=L-6:GOTO270 
910 IF N$ = "D" AND D = 1 THEN 

L = L + 6:GOTO270 
920 IF L=16 AND N$ = "D" AND 

K(7)<>-1 THENWN = 29:GQSUB 

5100:GOSUB5500:GOTO270 
930 PRINT'YOU CAN'T DO THAT HERE!": 

SOUND1,1:GOSUB5500:GOTO270 
940N = 0:S = 0:E = 0:W=1:U=0:D = 
950CLS:WN = 2:GOSUB5100 
960 IF B7 = 1 THEN WN = 3:GOSUB5100: 

PRINT'PRESS ANY KEY TO BEGIN YOUR 
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50 



II 



DQDD DADVENTURE":EXEC41194: 

B7 = 
970 RETURN 
980 CLS:WN = 4:G0SUB51 00:N = 0:S = 0: 

E = 0:W=1:U = 0:D = 0:RETURN 
990 IF RND{18) = 6 THEN GOSUB 2550 
1000 IF RND{18) = 12 AND DW = 1 THEN 

GOSUB 2740:RETURN 
1010 CLS:WN = 5:GOSUB5100:N = 1:S = 0: 

E = 0:W = 0:U = 0:D = 0:RETURN 
1020 IF RND(18} = 10 AND DW = 1 THEN 

GOSUB 2740:RETURN 
1030 IF RND(18) = 1 THEN CLS:GOSUB 2550 
1040 CLS:WN = 6:GOSUB5100:N = 0:S=1: 

E = 1:W=1:U = 1:D = 1:IF0P = 1 THEN 

WN = 62:GOSUB5100 
1050 RETURN 
1060 IF RND(18) = 17 AND DW=1 THEN 

GOSUB 2740:RETURN 
1070 CLS:WN = 7:GOSUB5100:N = 0:S = 1: 

E = 0:W = 1:U = 1:D = 0:RETURN 
1 080 CLS:WN = 8:GOSUB51 00:N = 0:S = 1 : 

E = 1:W = 1:F = 0:U = 0:D = 
1090 IF E$(L) < >"" THEN WN = 9:G0SUB 

5100:GOSUB5500 
1100IFE$(L)< >"" AND J<8THEN 

WN = 10:GOSUB5100 
1110IFE$(L)o""ANDJ>7THEN 

WN = 11:GOSUB5100:F = 1: 

QQ = QQ + 1:GOTO1420 
1120 RETURN 

1130 IF RND(18) = 16THEN GOSUB 2550 
1140CLS:WN = 28:GOSUB5100:N = 1:S = 0: 

E = 1:W = 0:U = 0:D = 0:RETURN 
1150WN = 13:GOSUB5100:N = 1:S=0: 

E = i : w = 0:U = 0:D = 0:RETURN 
1160 IF RND(18} = 14 AND DW = 1 THEN 

GOSUB 2740:RETURN 
1 1 70 CLS:WN = 1 4:G0SUB51 00:GOSUB5500: 

WN = 15:GOSUB5100:N=0:S = 1:E = 1: 

W = 0:U = 0:D = 0:RETURN 
1180 IF RND{18) = 17 THEN GOSUB 2550 
1190N = 1:S = 0:E = 1:W = 1:F = 0: 

U = 0:D = 
1200IFG<=4THENE$(L) = "" 
1210CLS:WN = 16:GOSUB5100 
1220 IF E$(L) <>"" THEN PRINP'HE 

STIRS":F = 1 
1230 RETURN 

1 240 IF RND(1 8) = 5 THEN GOSUB 2550 
1250 CLS 

1260 N = 1:S = 0:E = 0:W = 1:U = 0:D = 
1270 WN = 17:G0SUB 5100 
1280 RETURN 
1290N = 1:S = 0:W = 1:E = 1:F = 0: 

U = 0:D = 
1300WN = 18:GOSUB5100 
1310 IF K(19}= -1 THEN F = 0:WN = 19: 

GOSUB 5100 
1320 RETURN 
1330 IF RND(18) = 1 AND DW = 1 THEN 



GOSUB 2740:RETURN 
1340 CLS 

1350 N=0:S = 1:E = 1:W = 0:ll = 0:D = 
1360WN = 20:GOSUB5100 
1370 RETURN 
1380 CLS 

1390 N=0:S = 1:E = 1:W = 1:U = 0:D = 
1400 WN = 21 :GOSUB 5100 
1410 IF E$(L)<>"" THEN WN = 22:GOSUB 

5100:F = 1:QQ = QQ + 1 
1420 IF QQ>4 THEN PRINT"SHE SCREAMS,": 

GOSUB 5500:PRINT"TWO GUARDS 

APPEAR. ":GOSUB5500:PRINT "YOU 

SURRENDER. ":GOSUB 5500:GOTO 6500 
1430 RETURN 
1440N = 1:S = 0:E = 0:W = 1:F = 0: 

U = 0:D = 
1450 WN = 23:GOSUB 5100 
1460WN = 24:GOSUB5100:F = 1 
1470 IF RND(18)<4 THEN 

F=0:WN = 63:GOSUB5100 
1480 RETURN 
1490 IF RND(18) = 3 AND DW=1 THEN 

GOSUB 2740:RETURN 
1500 CLS 

1510N = 0:S = 1:E = 0:W = 1:U = 0:D = 
1520 WN = 25:GOSUB5100 
1530 IF K(17)= — 1 THENWN = 26: 



GOSUB5100:D = 1 
1540 RETURN 
1550 CLS 

1560 N = 1:S = 0:E = 1:W = 0:U = 0:D = 
1570 WN = 27:GOSUB5100 
1580 RETURN 
1590 CLS 

1600N = 0:S = 1:E = 0:W = 0:U = 1:D = 
1 610 WN = 1 2:GOSUB51 00 
1620 IF K(7) = — 1 THENWN = 64: 

GOSUB5100:D = 1 
1630 RETURN 

1640 IF RND{18) = 1 THEN GOSUB 2550 
1650 CLS:N = 1:S = 1:E = 1:W = 0:U = 0:D = 1 
1660WN = 30:GOSUB5100 
1670 RETURN 
1680 IF RND(18) = 1 AND DW=1 THEN 

GOSUB 2740:RETURN 
1690CLS:N = 1:S = 1:E = 1:W = 1:F = 
1700WN = 31:GOSUB5100 
1710 IF E$(L) <>"" THEN PRINT'THERE 

ISA";E$(L);"PASSING":F = 1 
1720 RETURN 

1730CLS:N = 1:S = 1:E = 0:W = 1:U = 0:D = 1 
1 740 WN = 32:GOSUB51 00 
1750 RETURN 
1760 REM *"Proca 
1770 CLS 
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Constructing and manipulating lists 
is the heart of LISP. But before you 
can put together a program, find out 
how to structure the process around 
the available functions 



As you will have discovered from the first 
article on LISP (pages 1410 to 1415), every- 
thing in this language is done by functions. 
And for the programmer who is used to 
working in BASIC, getting used to this is the 
hardest part of becoming fluent in LISP. 

You have already seen examples of quite a 
number of LISP's standard functions. But in 
order to write proper LISP programs, you 
need to define your own functions in addition 
to those already built into the LISP system. 
This is similar to the way in which you saw 
LOGO used in the first articles in this 
series — where LOGO's primitives were used 
as the basis of new procedures, which could 
then be built up into even more complex 
programs. But the process is rather different. 



DEFINING A FUNCTION 



Just like everything else in LISP, defining a 
function requires the use of a function — this is 
called DEFUN. If, for instance, you want to 
define a function called PLUS1 which adds 1 to 
whatever you feed it, in LISP, this means that 
your function has to take a single atom in its 
definition and add one to its value. Using 
DEFUN this could be done by giving the 
following s-expression to LISP: 

(DEFUN PLUS1 (A) (PLUS 1 A)). 

DEFUN has three arguments (lists on which it 
has to work), which it does not evaluate. The 
first argument is the name of the function, in 
this case PLUS1 . The next argument is a LISP 
list of the function's arguments — in this 
example, there is only one, the atom A. The 
last argument of DEFUN is a LISP s- 
expression to be evaluated. The result of the 
function is the value of this s-expression. 

When it evaluates the s-expression, LISP 
substitutes in it the values given to the 
function's arguments. So (PLUS1 2) gives 3 
because LISP substitutes 2 for the atom A and 
then evaluates the s-expression. In most 
implementations of LISP, any number of 
LISP s-expressions can follow the argument 
list and the value of the function is given by 
the value of the last one. 

These functions are quite similar to those 
used in BASIC. For instance, in BASIC you 
could define a function to do the above job by: 



DEFFNPLUS1(A) = A + 1 

However, as usual, LISP functions are more 
powerful — a LISP function can take lists as 
its arguments and can return a list as its value. 
The arguments of this type of user-defined 
function are evaluated before being sub- 
stituted in the function's definition, so (PLUS1 
(PLUS1 1)) evaluates to 3. The inner call of 
PLUS1 gives 2 and this is then fed to the outer 
PLUS1 , giving the value of 3. It is also possible 
to define LISP functions that do not evaluate 
their arguments and functions that can have 
an arbitary number of arguments. 

Usually, the value of DEFUN is the name of 
the function defined. Thus the interaction 
with LISP when you define a function looks 
like this: 

Evaluate: (DEFUN PLUS1 (A) (PLUS 1 A)) 
Value is: PLUS1 

Suppose you now type the name of the 
function in response to the Evaluate prompt: 

Evaluate: PLUS1 

Value is: (LAMBDA (A) (PLUS 1 A)) 

As you can see, LISP replies with the defi- 
nition of the function, which is now the value 
of the atom that is the function's name. The 
word LAMBDA is a special atom used by LISP 
to denote the fact that the s-expression is a 
function definition. Its effect above is to cause 
a substitution for the value of A in the 
following s-expression. It is important to 
understand the difference between evaluating 
the name of the function like this and actually 
using the function. When you want to call the 
function it is surrounded by a pair of brackets: 

Evaluate: (PLUS1 0) 
Value is: 1 

It is possible to find the definitions of some of 
the functions built into the LISP system in a 
similar way, although, because most of them 
are written in machine code, their definitions 
cannot be displayed. 

Another example of a user-defined func- 
tion is (DEFUN SECOND (LI) (CAR (CDR LI))). 
This function takes a list as its argument and 
returns the second element in it. Thus the 
value of (SECOND '(tea sugar milk)) is sugar. As 
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you may remember, exactly the same effect 
could be achieved by using the built-in 
function CADR. In this example, the atom LI is 
used as the name of the arguments, but you 
can use any name you like for the arguments. 



STRUCTURING A PROGRAM 



From the examples so far, you might decide 
that a LISP computer is no more than a 
sophisticated desk calculator, simply replying 
with the values of expressions. This is quite 
different to the behaviour expected from a 
computer where you want a program to go on 
continuously until you tell it to stop. 

To write a LISP program a top-down style 
of programming is used. You have already 
seen this principle applied in Pascal 
programs, which have to be written this way, 
and the process is similar in LISP. The task 
that the program is to do is split up into 
further simpler tasks which are in turn split 
up. This process is repeated until each sub- 
task is so simple that it can be done by a single 
LISP function. Each of these subtasks is 
called by another function representing the 
task which was split up to obtain them. 
Eventually, the entire program is repre- 
sented by a single function which calls all the 
others. To set the program off (the equivalent 
of RUN in BASIC) you get LISP to evaluate 
this master function. 

An advantage of this style of programming 
is that it is very easy to test each of the 
functions as they are written, by typing them 
in directly from the keyboard along with any 
necessary data. Doing this makes Finding 
errors in programs much easier. 



REPETITION 



The final ingredient which you need to write 
complete programs is a method of repeating 
tasks a number of times. Technically spea- 
king, there are two ways of doing this — 
iteration and recursion. Iteration is very 
familiar to users of BASIC, the classic 
example being the FOR. . .NEXT loop. And if 
you have read the article on pages 1289 to 
1295, you will have seen how recursion can be 
applied in BASIC programs. To demonstrate 
the techniques used in LISP, an example of a 
program to calculate factorials is going to be 
used. The factorial of an integer is calculated 
by multiplying together all the integers be- 
tween that number and one, so 5 factorial is 5 
x4x3x2xl = 120. If you wanted to 
calculate the factorials of some numbers in 
BASIC, you would probably define the fol- 
lowing function: 

DEFFNFACT(N) 

F = 1 



FOR I = 1 TO N 
F = F*I 
NEXT 

= F 

As you can see, FNFACT(5) equals 120 as it 
should do. The point here is that the factorial 
is calculated by iteration — the function keeps 
going through the loop, modifying F until it 
reaches the desired answer. Most languages, 
including BASIC, rely on iterative constructs 
like the FOR... NEXT and REPEAT. . .UNTIL 
loops when it is necessary to do a task several 
times. However, LISP is different. Instead of 
iteration, LISP's main way of repeating 
things is recursion. 



RECURSION 



You are probably already familiar with re- 
cursive procedures in BASIC. But as recur- 
sion is so important in LISP, it is worth a 
quick recap on the fundamental principles. 

Recursion means that the solution of a 
problem is defined in terms of itself. This may 
seem a bit paradoxical, because if the solution 
is defined in terms of itself, then it seems as if 
a solution will never be reached, and instead 
there will just be an infinite spiral of solutions 
each of which refers to another. Actually, the 
problem is that this definition is not rigorous 
enough. A proper recursive definition con- 
sists of two parts: 

(a) An exceptional case for which the so- 
lution is known. 

(b) A definition of the solution of the pro- 
blem in terms of the solution of a simpler 
version of the problem. 

Here (a) is the crucial part, for without this, a 
recursive definition would indeed go on for 
ever and be of no use. 

Using this definition and going back to the 
example of the factorial program, you could 
write a recursive definition of N factorial as: 

(a) 1 factorial is 1 . 

(b) N factorial is given by N times N — 1 
factorial. 

This definition can now be turned into a 
LISP function which can be written as: 

(DEFUN FACT (N) (COND ((EQ N 1) 1) 
(T (TIMES (FACT (DIFFERENCE N 1)) N)))) 

After typing in this definition (FACT 5) will be 
evaluated to 120 by LISP. This definition 
uses the COND function described in the first 
article on LISP. The first s-expression of the 
first clause checks to see if N is one. If it is, the 
value of the COND is given by the second 
s-expression; in this case 1. Otherwise LISP 
carries on to the second clause and since the 
first s-expression is T, it finds that the value of 
the COND is the expression: 
(TIMES (FACT (DIFFERENCE N 1)) N) 



which in English is N times N— 1 factorial. 

When LISP calculates 5 factorial, the 
function FACT calls itself 4 times with a 
different value for the argument N each time. 
The way in which LISP substitutes the value 
of the function's argument into the function's 
definition is cleverly arranged so that there is 
no confusion between these different calls of 
the FACT function, despite the fact that there 
is more than one version of it active at a time. 

Recursive definitions require a different 
way of thinking to that which you may usually 
use when writing BASIC programs. How- 
ever, recursion is a very useful technique and 
it allows programs to be written simply that 
would be very complex to write using itera- 
tive ideas. Although BASIC is not really very 
suited to recursive programming, this is why 
even some versions of BASIC now use it. For 
instance, in BBC BASIC you could define the 
factorial function using recursion: 

DEFFNFACT(N) 

IF N = 1 THEN = 1 ELSE = N'FNFACT(N-1) 

Obviously, this is very similar to the LISP. 
Although recursion is a very useful con- 
cept, it is not always convenient, and many 
programmers prefer the iterative way of cal- 
culating factorials to the recursive method. In 
'pure' LISP, recursion is the only available 
technique. However, over the years since 
LISP was invented, people have tried to graft 
onto it the iterative ideas of other languages. 
As time has gone by, some of these have been 
dropped. This makes it difficult to describe 
the iterative constructs any particular version 
of LISP may have. For instance, some mod- 
ern versions have REPEAT. . .UNTIL and 
REPEAT. . .WHILE. Older ones may have forms 
of FOR. . .NEXT or even GOTO. However the 
kind of sophisticated list processing problems 
for which LISP was designed are usually best 
solved by recursive techniques. 



EQUALITY TESTING 



An example of a more complex LISP function 
definition is provided by the function EQUAL. 
You have already seen the function EQ that 
tests for the equality of two atoms. The 
function EQUAL tests to see if two s- 
expressions are the same. If they are, it 
returns the value T — otherwise it has the value 
NIL. Some LISP implementations have this 
function built in — if yours does not you must 
define it yourself. Obviously, defining this 
function is a difficult problem because it has 
to take into account the complex structures 
that the two lists to be compared might have. 
In English, you can define the function as: 
(al) If EQ applied to the arguments has the 
value T then EQUAL has the value T. 
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(a2) If either argument is an atom and (al) 
was not satisfied when EQUAL has the 
value NIL. 
(b) If the value of EQUAL applied to the 
CARs of the original arguments is T and 
if the value of EQUAL applied to CDRs of 
the original arguments is T then EQUAL 
has the value T otherwise it has the value 
NIL. 

In Lisp the definition of EQUAL is: 

(DEFUN EQUAL (L1 L2) (COND ((EQ L1 

L2)T) 
((OR (ATOM L1) (ATOM L2)) NIL) 
((EQUAL (CAR Lt)(CAR L2))(EQUAL (CDR 

L1)(CDRL2))))) 

The function is given two s-expressions L1 
and L2 to compare. If L1 and L2 are the same 
atom then (EQ L1 L2) will be T and the COND 
function will terminate with the value T. Now 
if either L1 or L2 is an atom and the EQ did not 
have the value T then L1 and L2 cannot be the 
same and EQUAL must have the value NIL. In 
the second clause of the COND the ATOM and 
OR functions are used implement this 
condition. 

If LI and L2 pass through the first two tests 
then they must be lists. In order to compare 
them, they must be split up and then EQUAL 
can be used on their constituent parts. The 
natural way of doing this is, of course, with 
the functions CAR and CDR. Here a trick is 
used in the last line of the COND. First the two 
CARs are compared and if they are the same, 
EQUAL will return T and LISP will move onto 
the second s-expression where EQUAL is ap- 
plied to the two CDRs. The value of the 
function is then the value of this EQUAL. 

This is correct if the first EQUAL had the 
value T. If the first EQUAL has the value NIL 
then LISP tries to move on to the next clause, 
and finding there isn't one it automatically 
gives the COND the value NIL. 

A rather clearer but less concise way of 
doing things would be to make the last two 
clauses of the COND into: 

((AND (EQUAL (CAR LI) (CAR L2))(EQUAL 
(CDRL1)(CDRL2)))T) (TNIL) 

You may wonder why the last line of the 
COND was not written as: 

(T (EQUAL L1 L2)) 

This would be a very bad recursive definition 
because it goes on forever. The point about 
the original definition is that as the function 
recurses, the use of the CAR and CDR func- 
tions makes the lists which are the arguments 
of EQUAL get simpler. Eventually, they 
become atoms and then the first two 'excep- 
tional cases' in the COND terminate the recur- 



sion. Using this new definition L1 and L2 
never become any simpler and so the function 
goes on calling itself for ever. 



TAIL RECURSION 



In the factorial function, after the function 
has called itself and got an answer back, it 
must multiply this by N before passing the 
result back to the level above. In a tail 
recursive definition, a function passes back the 
results of any deeper levels of recursion 
without change. This uses the computer more 
efficiently. The following is a tail recursive 
definition of the factorial function: 

(DEFUN FACT (N) (FACTXN1)) 
(DEFUN FACTX (N F) (COND ((EQ N 1) F) 
(T (FACTX (DIFFERENCE N 1)(TIMES F N))))) 

This requires two functions and is quite 
similar in spirit to the original iterative 
definition of the factorial function: 



COMPLEX FUNCTIONS 



In addition to the basic functions like CAR and 
CDR built-in to the LISP system, there are 
some rather more advanced ones. A good 
example is the MAPCAR function. This has 
two arguments — the first is a function and the 
second a list. MAPCAR applies the function to 



each element in the list and returns a list of the 
results. So for instance, the result of evaluat- 
ing (MAPCAR 'PLUST (1 2 3 4 5)) is (2 3 4 5 6). 
The last function to look at is perhaps the 
most important function in LISP. It is called 
EVAL and when you type something in at the 
keyboard of a LISP system it is evaluated 
using this function. However, it is possible for 
a LISP function to generate a valid LISP s- 
expression and then evaluate it using EVAL. 
For instance, (PLUS 1 1 ) evaluates to 2 and the 
expression '(PLUS 1 1 ) will evaluate to (PLUS 1 
1 ). But (EVAL '(PLUS 11)) evaluates to 2. So in 
a sense EVAL is the opposite of the single 
quote. EVAL then contains all the power of 
LISP, but surprisingly enough it is quite easy 
to write down its definition in LISP, 



DATA STRUCTURES 



Although defining functions is essential to 
writing programs, in LISP data structures are 
almost as important — as in any language. 

In BASIC, there are really only two data 
structures — the string and the array. When 
you write a BASIC program, you must decide 
how to represent the data it will manipulate in 
terms of these two structures, and choosing 
the best way to represent the data in a 
problem can often make the solution of the 
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problem itself much easier. 

In LISP, the concept of lists allows the 
construction of an unlimited number of types 
of data structure — it is up to the LISP 
programmer to use this freedom to maximum 
advantage. To give a simple example of how 
rapidly LISP data structures become more 
complex than in BASIC, a list of atoms may 
be considered as similar to an array. However, 
it is possible to have a list each of whose 
elements is a list of atoms — in other words an 
array of arrays. 

An important LISP data structure is the 
property list. As the previous article showed, 
a LISP atom can have a value. However, in 
addition to its value, an atom can also have 
'properties'. For instance, suppose you have 
the atom FRED and that this represents a 
person's name. This atom can have properties 
corresponding to all the information you 
know about the person. For example (PUT 
'FRED 'AGE 32), will give the value 32 to the 
property AGE of the atom FRED. Next you 
might want to add details of the person's 
height: this could be done with (PUT 'FRED 
'HEIGHT 200). The values of the properties 
can be returned with the GET function, so 
(GET 'FRED 'AGE) has the value 32. 

The uses of properties are only limited by 
the imagination of the LISP user, A possible 
use is as tags. Suppose you have two lists — 
one called LEFT contains the colours of all 
your left socks (red green blue yellow) the other, 
called RIGHT, contains the colours of all your 
right socks (pink orange black green). The 
problem is to find if you have any matching 
pairs. One way of tackling it would be to take 
one sock from LEFT and compare it with every 
sock in the list RIGHT and then repeat this for 
all the other socks in LEFT. For very large lists 
this would be a very slow process. Instead, 
you can use property lists. First go through 
RIGHT attaching the property SEEn with the 
value NIL to each sock e.g. (PUT 'pink 'SEEN 
NIL), Now go through the list LEFT and put the 
property SEEN with the value T on each sock. 
Last, again go through the list RIGHT and look 
at the value of the property SEEN on each sock 
e.g. (GET 'pink 'SEEN); those which have the 
value of T must have a matching sock in the 
list LEFT. The search this way is much faster. 



WORKING MEMORY 



You can make even more use of properties 
thanks to functions which allow LISP to 
manipulate them independently. REMPROP 
REMoves a PROPerty from an atom, as in 
(REMPROP 'FRED 'AGE}. In addition, there is 
often a function PLIST which has as its value 
the Property LIST for an atom. For instance 
(PLIST 'FRED) would have the value ((AGE . 



32) (HEIGHT . 200)). Each item in this list is a 
dotted pair (briefly referred to in the previous 
article). To understand this idea, you must 
understand what is going on behind the 
scenes in a LISP computer. 

Obviously, when a LISP system is wor- 
king, lists are being manipulated all the time. 
But most computers have no special instruc- 
tion for doing this. This means that the lists 
must be represented in terms of the usual 
contents of a computer. For instance, the 
typical home computer has about 64,000 
memory locations each of which can hold a 
single 8 bit number. Actually holding the 
address of a memory location requires a 16 bit 
number. 

In a typical LISP system, all the memory 
locations in the computer (to be used for 
storing lists) would be split up into cells. Each 
cell consists of four bytes — two 16 bit words 
which can each hold the address of another 
cell. The First two bytes of a cell can be called 
its CAR and the second two bytes, its CDR. A 
LISP list is stored as a linked list of such cells. 
Consider the list (tea milk sugar). Each item in 
the list is represented by a cell. The CAR of the 
cell contains the address at which the appro- 
priate atom is stored and the CDR contains the 
address of the next cell in the list. Fig 1. 
should make this clear. 

The question arises what happens at the 
end of the list? Where does the last CDR of the 
linked list point to? Usually, it points to the 
special atom NIL as shown in the diagram, A 
dotted pair is a representation of one cell in 
the linked list. This means that a list with one 
item (FRED), say, can be written in LISP as 
(FRED , NIL). So dotted pairs are LISP's way 
of displaying how lists are stored. Suppose 
you typed (CONS 'FRED 'SMITH). LISP would 




reply with (FRED . SMITH). In memory you 
would have created the structure in Fig 2. 

The CAR, CDR and CONS operators can also 
be applied to dotted pairs. For example, (CAR 
'(FRED . SMITH)) is FRED. These dotted pairs 
can be useful, but it is possible to write LISP 
programs without worrying about them. 



THE FREE LIST 



When you begin a programming session on a 
LISP computer, all the free memory is div- 
ided up into cells and these are all linked 
together in one big list — the free list. As you 
create new lists, cells are taken from the free 
list and used. For example, if you typed (SETQ 
SHOPS '(tea milk sugar)) some cells would be 
taken from the free list and used. However, if 
you then changed your mind and typed (SETQ 
SHOPS '(biscuits socks)) LISP would use up 
more memory locations to store the new list. 
The problem is that the cells used to store the 
original list still exist linked together and have 
not been returned to the free list. Obviously, 
if this process continued, you would soon run 
out of memory. 

Most LISP systems handle this problem 
by going on using up memory until the free 
list is empty. At this stage, a complicated 
program called the 'Garbage Collector' is 
brought into operation. This looks at all the 
cells in the computer's memory and discovers 
if they are still being used by the atoms and 
functions in the object list. Any cells no 
longer needed are then returned to the free 
list. After all the unused cells have been 
collected, normal processing resumes. 

This can produce strange behaviour — your 
LISP program may be running and then 
suddenly stop for a few seconds, possibly in 
the middle of an important task, as the 
garbage collector does its work. Clearly, if the 
LISP program were in control of some highly 
interactive process, like the movement of a 
robot or flying plane, this would not be 
acceptable. In fact other methods of solving 
this problem will have to be developed for this 
type of situation. Some versions of BASIC 
use a similar garbage collection scheme to 
handle the storage of strings. Often there is a 
command with which you can force BASIC to 
do the garbage collection and some LISP 
systems have a function which does this. 



MOVING ON 



From the language of list processing to a 
language whose speed approaches that of 
machine code — the next language in the series 
is FORTH. Originally developed for scient- 
ific applications, these days FORTH is a 
powerful language with a wide range of 
applications. 



CUMULATIVE INDEX 



An interim index will be published each week. There will be a complete index in the last issue of INPUT. 
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of sprites 

Commodore 64 1259-1263 
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Applications 

horoscope program 1245-1253 
music composer program 
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room planner program 
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Basic programming 

file handling 1358-1364 
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1338-1345 
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part 18 — death, sound and 
end routines 1440-1447 

Colour 

code guessing game 1356-1357 

of sprites 

Commodore 64 1262 

representing in tonal screen 
dump 1369-1371 
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Data, separate storage of 

1358-1364 
Desperate decorator game 

1314-1316 
Dotted pairs, in LISP 1460 



Editing 
with LOGO 1296 

with Pascal 1355, 1391 
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with LISP 1458-1459 

Escape adventure game 

part 1 1424-1428 

part 2 1450-1455 



Factorials, calculating 

BASIC program for 1291-1293 

in LISP 1458-1459 

Files, handling 1358-1364 

Fractals 1397-1401, 1434-1439 



Games 

Cavendish Field 1254-1257, 
1282-1288, 1301-1307, 
1346-1351, 1372-1377 
cliffhanger 

1240-1244, 1276-1281, 

1328-1332, 1338-1345, 

1378-1385, 1402-1409, 

1440-1447 

desperate decorator 1314-1316 

escape 1424-1428, 1450-1455 

horoscope program 1245-1253 

life 1237-1239 

'match that' 1356-1357 

Graphics 

displays, programs for dumping 

1365-1371 

moving and storing sprites 

Commodore 64 1258-1263 
using fractals 

1398-1401, 1434-1439 
using LOGO 

1296-1300, 1317-1320 



Heuristics, use in Cavendish Field 

1373-1377 

Horoscope program 1245-1253 
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LISP 1410-1415, 1456-1460 

LOGO 1264-1268, 1296-1300, 

1317-1321, 1352-1355, 1386-1391 

Pascal 1352-1355, 1386-1391 

Life game 1237-1239 
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part 1 — introduction 

1410-1415 
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part 1— algorithms 1352-1355 
part 2 — commands 1386-1391 

PERT program 
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1429-1433 

Pointers, sprite 

Commodore 64 1260-1261 

Procedures, 
in LOGO 1268,1296-1300 

Punctuation, 
when handling files 1360-1363 
with LISP 1412 

with LOGO 1320-1321 

with Pascal 1354-1355, 1391 
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Quicksort program, recursive 

1293-1294 



Recursion 

in BASIC 1289-1295 

in fractal programs 1398-1401, 
1434-1439 
in LISP 1458-1459 

in LOGO 1299-1300 

Room planner program 

part 1 1269-1275 

part 2 1308-1313 



Screen dumping, of graphics 

1365-1371 
Snowflake 

curve 1398 

program to draw 1434-1436 

Sprites, Commodore 64 
moving and storing 1258-1263 

Sprites, LOGO 1317-1320 



Towers of Hanoi program 

1294-1295 

Turtle, use of 1266-1268 

for graphics 1296-1300 
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User-defined functions, 
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in LISP 1456-1459 
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Wargames 

see Cavendish Field 



The publishers accept no responsibility for unsolicited material sent for publication in INPUT. All tapes and 
written material should be accompanied by a stamped, self-addressed envelope. 



COMING IN ISSUE 47. . . 



Li There are some ideas for giving depth 
to your GRAPHICS— GETTING 
THINGS IN PERSPECTIVE. Learn how 
to master vanishing points and 
foreshortening, and how to use shading 
to give solidity to your screen display. 

d Check out your TV or monitor with a 
simple TEST-CARD ROUTINE 

—I Move on to looking at a new, high- 
speed language with the first of a three- 
part examination of FORTH 

Li Complete your CRITICAL-PATH 
ANALYSIS PROGRAM and find out how 
to run it through a typical problem 

O In CLIFFHANGER, the next routine 
handles CALCULATING THE SCORE 

Li Plus the next stage in ESCAPE, the 
BASIC adventure game program 
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